?? abracada.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -