?? webpalet.pas
字號:
program keygen;
label
more;
var
count, error : integer;
name, fname : string;
Textfile : text;
line1, line3, ebx, ecx, eax : longint;
begin
line1 := 58948197;
fname := 'reg.key';
writeln('Web Palette 1.0 - Keyfile generator by Quantico MEX/C4N');
write('Enter your name : ');
readln(name);
ebx := 1;
ecx := 0;
FOR count := 1 TO length(name) DO BEGIN
MORE:
ecx := byte(name[count]);
ebx := ebx xor ecx;
end;
eax := line1;
ebx := eax div ebx;
line3 := ebx;
Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile);
writeln;
writeln('reg.key file created.');
writeln('Place it in Web Palette directory.');
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -