melody.pas

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

Program AbracadabrakeygenZ ;
uses crt ;
var username : string ;
    serial : longint ;
    i : integer ;
function hitung(user : string) : integer;assembler;
asm
push ds

lds si,user
xor dx,dx
inc si

@loop :
xor ax,ax
mov al,byte ptr [si]
inc si
cmp al,00h
jz @exit
add dx,ax
jnz @loop

@exit :
mov ax,dx

pop ds
end;

begin
  clrscr ;
  writeln('Melody 1.5 Key Generator by flag eRRatum -[eKH]') ;
  writeln('Homepage at http://all.at/ekh') ;
  write('Please Enter your username : ') ; readln(username) ;
  serial:=hitung(username) ;
  serial:=(serial SHL 7) + Serial ;
  {for i:=1 to length(username) do serial:=serial+ord(username[i]) ;}
  writeln('Your Registration Code is : ',serial) ;
  textcolor(lightred) ;
  writeln('Visit our page for more cracks !!!') ;
end.