Â¥Ö÷

Õâ¶Î ³ÌÐòÓàC ³ÌÐòÔõÑùд°¡ ¿´²»Ì«Ã÷°×£¬Ï£Íû¸ßÊÖ°ïÎÒ¸ÄΪ C ³ÌÐò£¬Ð»ÁË {$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. [´ËÌù×ÓÒѾ­±»×÷ÕßÓÚ2006-6-28 21:51:28±à¼­¹ý]    Êղؠ  ·ÖÏí   ¶¥(0)