XYpl0rer_Src_KG_!n_Delphi

[TeRcO]

السلام عليكم ورحمه الله
تم صياغه الكيجن بالطريقة التالية حتى تتضح خوارزميه التسجيل للأعضاء

مع تحيات ـ أخوكم خالد


سورس الكيجن:

{ Target : https://www.xyplorer.com
         Protection : MD5
        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;