arjshkg.pas

破解很多程序的序列号算法程序

Program ArjShell ;
uses crt ;
var user,ID : string ;
    i : integer ;
    key : longint ;

begin
  clrscr ;
  writeln('ArjShell 1.xx KeyGenerator by flag eRRatum') ;
  write('Enter your UserName : ') ;
  readln(user) ;
  if length(user) < 1 then
    begin
    writeln('Not Entered anything is not a wise action !') ;
    exit
    end ;

  for i:=1 to length(user) do
    key:=key + (i*ord(user[i])) ;

  key:=abs(key*$1BAAFFE) ;

  if key >= $77359400 then key:=key-$77359400 ;
  if key >= $3B9ACA00 then key:=key-$3B9ACA00 ;
        key:=key XOR $221D1758 ;
  if key >= $77359400 then key:=key-$77359400 ;
  if key>=$3B9ACA00 then key:=key-$3B9ACA00 ;

  str(key,ID) ;

  write('This is Your User-ID : ') ; textcolor(WHITE) ;
  if length(ID) < 9 then
    for i:=1 to (9-length(ID)) do
        write('0') ;
  writeln(ID) ;
  
end.