?? ssdisk.pas
字號(hào):
Program dltypeskeygenZ ;
uses crt ;
var user,user2 : string ;
i : integer ;
ser,tampung : longint ;
begin
clrscr ;
writeln('Super sensitive Disk-Scanner 98 2.x Key Generator by flag eRRatum - [eKH]') ;
writeln('Homepage at http://all.at/ekh') ;
write('Please Enter your Name : ') ;
readln(user) ;
for i:=1 to length(user) do
user[i]:=upcase(user[i]) ;
for i:=1 to length(user) do
delete(user,pos(' ',user),1) ;
ser:=$8c2 ;
for i:=1 to length(user) do
begin
tampung:=(ord(user[i]))*i ;
ser:=ser+tampung ;
end ;
write('This is Your Number : ',ser) ;
textcolor(LIGHTRED) ;
writeln ;
write('Visit our page for more cracks/serial/keygens !') ;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -