keygen

var
long,crypt:string;
int,i,f:integer;
key: array[0..31] of char;   //массив char из 32 символов, так удобнее заполнить

procedure Decrypt(long,crypt:string);
begin
 repeat
  int:=StrToInt('$'+long[i]+long[i+1]) xor (StrToInt('$'+crypt[i]+crypt[i+1])-f); //генерируем байт ключа
  key[f]:=chr(int); //записываем вычисленный байт в отведенную ему позицию
  f:=StrToInt('$'+crypt[i]+crypt[i+1]) mod 32;  //вычисляем позицию следующего байта
  i:=i+2; //переходим к следующим байтам
 until i>64;
i:=1; //обнуляем счетчик обработанных байтов
end;

procedure TForm15.Button1Click(Sender: TObject);
begin
i:=1;
f:=0;  //позиция первого байта = 0
Decrypt('576520676F2061626F7574206F7572206461696C79206C6976657320756E6465','035051141C311619762A40741C5C630B301018751E9977322114286E111B1D2E');
Decrypt('727374616E64696E6720616C6D6F7374206E6F7468696E67206F662074686520','121C5D3229352E260C70101D3624371D711B2438711E53145B242A6C3C797051');
Decrypt('776F726C642E20466577206F66207573207370656E64206D7563682074696D65','2433275E5D7769172E0F57341565643769443416255359785C72230B403D361A');
Decrypt('20776F6E646572696E6720776879206E61747572652069732074686520776179','7B2C3733152A3A42586E643B293A7B234C3C5C6350511E4647561F230B411860');
Decrypt('2069742069733B2077686572652074686520636F736D6F732063616D65206672','74224E642D470722511D2E122E643871126B2D3328331C621A3C701C6C701717');
Decrypt('6F6D3B2E2E2E207768792077652072656D656D62657220746865207061737420','341E7E935B630B411F3769482B6C425F2B2F141970230B403C6C7021185A4F57');
Decrypt('616E64206E6F7420746865206675747572653B20616E64207768792074686572','2A361B6119762B6C3C79705113261B2E122E5B6118772D762C386074275A3E47');
LabeledEdit1.Text:=key;
end;