offlinee.pas

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

Program OfflineExplorer ;
uses crt ;
var i : integer ;
    username : string ;
    reg1,reg2,reg3 : longint ;
begin
  clrscr ;
  writeln('Offline Explorer Key-Generator by flag eRRatum') ;
  writeln('Visit our page at http://all.at/ekh') ;
  writeln('Please enter your username : ') ;
  readln(username) ;
  username:='Offline Explorer 1'+username+'Single' ;
  reg1:=$6d363c1 ;
  for i:=1 to length(username) do
    begin
    reg2:=(ord(username[i])+(reg1 SHL 4)) ;
    reg2:=reg2 AND $f0000000 ;
    reg1:=reg2 ;
    if reg2 <> 0 then
      begin
      reg3:=reg2 ;
      reg1:=reg1 XOR (reg3 SHR $18) ;
      end ;
    reg1:=reg1 AND ((NOT reg2)+1) ;
    end ;
  writeln(reg1) ;
end.