program crue1_keygen;

var
count            : integer;
ch               : char;
name             : string;
digits1, result  : longint;

begin
 writeln('Cruehead crackme 1 - keygen by Quantico MEX/C4N');
 write('Enter your name : ');
 readln(name);

FOR count := 1 TO length(name) DO BEGIN
 ch := char(name[count]);
 ch := UpCase(ch);
 digits1 := digits1 + Ord(ch);
end;

result := digits1 XOR $5678;
result := result  XOR $1234;

writeln;
writeln('Your code is : ', result);

end.