Exetools  

Go Back   Exetools > General > Source Code

Notices

Reply
 
Thread Tools Display Modes
  #1  
Old 09-28-2022, 20:51
TeRcO TeRcO is offline
Friend
 
Join Date: Sep 2022
Posts: 6
Rept. Given: 0
Rept. Rcvd 9 Times in 5 Posts
Thanks Given: 7
Thanks Rcvd at 44 Times in 6 Posts
TeRcO Reputation: 9
XYplorer_Src_KG_Delphi

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;
Attached Files
File Type: rar md5.rar (3.3 KB, 12 views)
Reply With Quote
The Following User Gave Reputation+1 to TeRcO For This Useful Post:
Insid3Code (09-29-2022)
The Following 8 Users Say Thank You to TeRcO For This Useful Post:
besoeso (10-01-2022), Dr.FarFar (01-31-2023), Jyoti (09-23-2023), niculaita (09-29-2022), uranus64 (09-30-2022), Vosiyons (09-29-2022), WillyTerra (02-26-2023), Zeocrack (10-05-2022)
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is On



All times are GMT +8. The time now is 16:52.


Always Your Best Friend: Aaron, JMI, ahmadmansoor, ZeNiX, chessgod101
( 1998 - 2024 )