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