Exetools - XYplorer_Src_KG

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;