{$APPTYPE CONSOLE}

Uses
SysUtils;

var nome,serial:string;
    i,j:integer;

begin
writeln('######## Keygen for Step 2 by The Hellfish ########');
writeln;
write('Enter your name: '); readln(nome);
writeln;
if length(nome)>=4 then begin
                 j:=1;
                 for i:=1 to length(nome) do nome[i]:=upcase(nome[i]);
                 for i:=1 to 8 do
                 if nome[i]<>#0 then
                 serial:=serial+inttohex(ord(nome[i])xor (80+i-1),2)
                 else begin
                 serial:=serial+inttohex(ord(nome[j])xor (80+i-1),2);
                 j:=j+1;
                 end;
                 writeln('Your code is: '+serial);
                 writeln;
                 writeln('#### Lie, Cheat and Steal! ####');
                 end
else
writeln('You must type at least 4 chars!!!');
readln;
end.