Exetools
(
https://forum.exetools.com/index.php)
-
Source Code
(
https://forum.exetools.com/forumdisplay.php?f=46)
XYplorer_Src_KG_Delphi
1 Attachment(s)
Target :https://www.xyplorer.com
Protection : Md5
by : TeRcO
Compiler : Delphi
Code:
{
Tools Used : Ollydbg
Author : TeRcO
Add:
MD5.pas to Project
uses md5
}
procedure TForm1.Button1Click(Sender: TObject);
var
CBB1,CBB2,Str1,MD_5, Serial: string;
i,Length_Name : Integer;
begin
Length_Name := Length(Edit1.Text);
if Length_Name < 1 then
begin
Edit2.Text := 'Name Must at Least 1 char';
Exit;
end;
CBB1:=combobox1.Text;
{Create it with 03 items: Discount,Upgrade,Academic}
CBB2:=combobox2.Text;
{Create it with 05 items:
Mini,Site,Corporate National,Corporate Global,Corporate Universal}
case ComboBox1.ItemIndex of
0: CBB1:='DC'; {'(Discount)'}
1: CBB1:='UP'; {'(Upgrade)' }
2: CBB1:='AC' ; {'(Academic)' }
end;
case ComboBox2.ItemIndex of
0: CBB2:='MS'; {'Mini Site License' }
1: CBB2:='ST'; {'Site License' }
2: CBB2:='CP'; {'Corporate License National' }
3: CBB2:='CG'; {'Corporate License Global' }
4: CBB2:='CU'; {'Corporate License Universal'}
end;
Str1 := 'gonzoxy01'+ CBB2 + CBB1 + edit1.text;
MD_5 :=Md5print(Md5String(Str1));
Serial :='xy01'+ CBB2 + CBB1+Copy(MD_5, 5, 4)+ Copy(MD_5, 19, 12) ;
{ You can put anything after 16th xy01-xxxx-xxxx-xxxx }
for i:= 1 to 5 do
insert('-',Serial,i*5);
edit2.Text:= Serial ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('Keygen by: TeRcO ' );
end;
|
All times are GMT +8. The time now is 00:05. |
|
Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Always Your Best Friend: Aaron, JMI, ahmadmansoor, ZeNiX