Харьков

Украина

Есть почтовый скрипт на perl, в нем генерится уникальный message-id для письма. Нужно сделать функцию на Delphi которая будет генерить этот же message-id , грубо говоря нужно перевести функцию создания этой переменной из perl в delphi.
В атаче скрипт.
Вот часть кода где подставляется нужная переменная.

my $outlook = <<'OBJ';
Received: from %FAKENAME% (%FAKEIP%)
by %HOST%; %DATE%
Message-ID: <%MESSAGE_ID%>
Reply-To: %REPLY_TONAME% <%REPLY_TOADDR%>
From: %FROMNAME% <%FROMADDR%>

Нужна функция на дельфи. которая будет генерить переменную <%MESSAGE_ID%>

Есть почтовый скрипт на perl, в нем генерится уникальный message-id для письма. Нужно сделать функцию на Delphi которая будет генерить этот же message-id , грубо говоря нужно перевести функцию создания этой переменной из perl в delphi.
В атаче скрипт.
Вот часть кода где подставляется нужная переменная.

my $outlook = Received: from %FAKENAME% (%FAKEIP%)
by %HOST%; %DATE%
Message-ID: 
Reply-To: %REPLY_TONAME% 
From: %FROMNAME% 

Нужна функция на дельфи. которая будет генерить переменную

Алексей Фролов Stine

Перевести функцию из Perl в Delphi