drop2mai.pas

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

Program Drop2Mail ;
uses crt ;
var User,Comp : string ;
    i : integer ;
    ebx,ecx,eax,edx : longint ;
begin
  clrscr ;
  writeln('Drop2mail 2.xx KeyGenerator by flag eRRatum') ;
  writeln('Homepage at : http://all.at/ekh') ;
  write('Enter your Username : ') ;
  readln(User) ;
  write('Enter your Company : ') ;
  readln(Comp) ;
  ebx:=$2aaef ;
  eax:=0 ;
  if length(User) > 0 then
  for i:=1 to length(user) do
    begin
    edx:=ord(user[i]) ;
    ecx:=edx ;
    edx:=edx*eax ;
    ecx:=ecx+edx ;
    edx:=eax ;
    edx:=edx SHL 3 ;
    edx:=edx-eax ;
    inc(eax) ;
    ecx:=ecx+edx ;
    inc(ecx) ;
    ebx:=ebx+ecx ;
    end ;
  eax:=0 ;
  if length(Comp) > 0 then
  for i:=1 to length(Comp) do
    begin
    edx:=ord(Comp[i]) ;
    ecx:=edx ;
    ecx:=ecx+edx*eax ;
    edx:=eax ;
    edx:=(edx SHL 3)-eax ;
    inc(eax) ;
    ecx:=(ecx+edx) SHL 3 ;
    ecx:=((ecx*5)*5)*5 ;
    ebx:=ebx+ecx+$3e8 ;
    end;
  writeln('This your Registration Code : ',ebx) ;
  textcolor(lightred) ;
  writeln('Thanx for using this KeyGenerator, visit our page for more !') ;
end.