Program AbracadabrakeygenZ ;
uses crt ;
var username : string ;
    serial : longint ;
    i : integer ;
function hitung(user : string) : integer;assembler;
var tampung : longint ;
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 :
xor ax,ax
mov word ptr [ebp],ax

pop ds
end;

begin
  clrscr ;
  writeln('Abracadabra version 1.2.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 * $7B2 ;
  {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.