https://mega.nz/file/xfFwBZbS#oEjQceJrMmi0I_00RlEExz0tQ_jkn7RTox2Z_4325IQ

إقتباس :

Hard كتب : سورس الكيجن
ارجوا ان يعجبكم

 

var
Serial,A, K:string;
c,g,v,i:integer;
begin

    Randomize;

     K:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
     A:='xxxxxxxxxxxxxxxx';
     for i:=1 to length(A) do
     A[i]:=K[Random(length(k))+1];

     Serial := A;
     c := random(90)+$10;
     g := Abs(2*c - 155) + 65;
     v := (155 - c);
     
     Serial[4] := chr(g);
     Serial[8] := chr(c);
     Serial[11] := chr(v);

     Edit1.Text := Serial;

//ملاحضة بسيطة دالة الاحرف العشوائية اخدتها من اول درس في الدورة :D

end; 

إقتباس : 

esso_x كتب :  السلام عليكم
وهذا كود الكيجين Delphi + ASM
بالتوفيق

 

  function Randme : String;  
 var
 A, K: String;
 i : Integer;
 begin
   K:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
   A:='xxxxxxxxxxxxxxxx';
   for i:=1 to length(A) do
   A[i]:=K[Random(length(k))+1];
   Result := A;
 end;

  procedure TForm1.Button1Click(Sender: TObject);
 var
 S:string;
 Ser1,Ser2,Ser3:integer;
 begin
Repeat
 S:= Randme;
//--------------------------------------------
      ASM
     PUSHAD
     MOV EBX,S //[ARG.2]     ; serial
     @_ApDocTo_004091A5:
     MOVSX ESI,BYTE PTR DS:[EBX+7]
     MOV EAX,ESI
     MOVSX EDI,BYTE PTR DS:[EBX+0Ah]
     ADD EAX,EDI
     CMP EAX,09Bh
     mov Ser1,eax
     MOV ECX,ESI
     SUB ECX,EDI
     MOV EAX,ECX
     CDQ
     XOR EAX,EDX
     SUB EAX,EDX
     ADD EAX,041h
     mov Ser2,eax  //----> To make loop
     MOVSX EDX,BYTE PTR DS:[EBX+3]
     mov Ser3,edx //----> To make loop
     CMP EAX,EDX
     POPAD
     end;
//--------------------------------------------
 Until (Ser1 = $9B) and (Ser2 = Ser3);
 edit1.text:= S;
 end;

https://youtu.be/1QXngMT9ekQ

#include <iostream>
#include <string>

using namespace std;


int main() {

bool inner_debug_keygen_mode = true;

string Serial;
string KeyX= "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
string RandomAlphabets = "xxxxxxxxxxxxxxxx";

int c,g,v;

// Use current time as seed for random generator
srand(time(0));

for (int i = 0; i < RandomAlphabets.length() - 1 ; ++i) {
RandomAlphabets[i] = KeyX[rand() % (KeyX.length()-1)];
}
// Debug RandomAlphabets
if (inner_debug_keygen_mode)
cout << "RandomAlphabets: " << RandomAlphabets << endl;

Serial = RandomAlphabets;

c = (rand() % 90)+ 0x10;


if (inner_debug_keygen_mode)
cout << "c: " << c << endl;

g = abs(2*c - 155) + 65;

if (inner_debug_keygen_mode)
cout << "g: " << g << endl;
v = (155 - c);

if (inner_debug_keygen_mode)
cout << "v: " << v << endl;

Serial[4-1] = static_cast<char>(g);
Serial[8-1] = static_cast<char>(c);
Serial[11-1] = static_cast<char>(v);

cout << "Serial: " << Serial << endl;

return 0;
}