?? arjshkg.pas
字號:
Program ArjShell ;
uses crt ;
var user,ID : string ;
i : integer ;
key : longint ;
begin
clrscr ;
writeln('ArjShell 1.xx KeyGenerator by flag eRRatum') ;
write('Enter your UserName : ') ;
readln(user) ;
if length(user) < 1 then
begin
writeln('Not Entered anything is not a wise action !') ;
exit
end ;
for i:=1 to length(user) do
key:=key + (i*ord(user[i])) ;
key:=abs(key*$1BAAFFE) ;
if key >= $77359400 then key:=key-$77359400 ;
if key >= $3B9ACA00 then key:=key-$3B9ACA00 ;
key:=key XOR $221D1758 ;
if key >= $77359400 then key:=key-$77359400 ;
if key>=$3B9ACA00 then key:=key-$3B9ACA00 ;
str(key,ID) ;
write('This is Your User-ID : ') ; textcolor(WHITE) ;
if length(ID) < 9 then
for i:=1 to (9-length(ID)) do
write('0') ;
writeln(ID) ;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -