L020:
  MOV EAX,DWORD PTR SS:[EBP-8] //ip
  MOV BL,BYTE PTR DS:[EAX+ESI-1] //2 байт
  MOV EAX,DWORD PTR SS:[EBP-C] //"asdfasdfasdfasdf"
  MOV AL,BYTE PTR DS:[EAX+ESI-1]
  XOR BL,AL
  LEA EAX,DWORD PTR SS:[EBP-1C]
  MOV EDX,EBX
  CALL CrackMe.00403FF8
  MOV EDX,DWORD PTR SS:[EBP-1C]
  LEA EAX,DWORD PTR SS:[EBP-10]
  CALL CrackMe.004040D8
  INC ESI
  DEC EDI
  JNZ L020

function Keygen(ip, asdf:string) :string;
var
i: integer;
begin
  result := '';
  for i:=1 to 13 do
    begin
      result := result + chr(ord(ip[i]) xor ord(asdf[i]));
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (KeyGen('217.112.37.32', 'asdfasdfasdfasdf'));
end;