Membuat CD Key

CD Key diperlukan sebagai identitas unik sebuah software. Jika anda sudah mengeluarkan sepuluh software, maka anda membutuhkan sepuluh CD Key. Berikut ini adalah penjelasan singkat tentang bagaimana membuat CD secara otomatis. Penjelasan berikut bukan penjelasan profesional. Hanya sekedar memberikan ide. Anda dapat menambahkan sesuai dengan kebutuhan anda sendiri.

Disini saya akan membuat lima grup key dan masing-masing key berisi lima karakter seperti berikut:

XXXXX-XXXXX-XXXXX-XXXXX-XXXXX

sehingga saya membutuhkan dua looping. Looping pertama untuk lima grup karakter. Looping kedua untuk isi karakter di grup tersebut. Sehingga secara kita mengawalinya dengan:

function GenerateKey: string;
var
   x, i : integer;
begin 
  for x := 1 to 5 do
    begin
        for i:= 1 to 5 do
        begin
        
        end;
    end;
end;

Dalam kasus ini. Saya menginginkan karakter dapat dihasilkan secara acak dan bisa terdiri dari huruf maupun karakter dan pemilihan kapan karakter kapan angka juga dihasilkan secara random. Sehingga fungsi GenerateKey menjadi:

function GenerateKey: string;
var
    x, i : integer;
begin 
  for x := 1 to 5 do
    begin
        for i:= 1 to 5 do
        begin           
            //Random untuk memilih angka atau huruf           
            randomize;
            int := 1 + random(2);

        end;
    end;
end;

Maksud darim int:= int 1 + random(2) adalah untuk menghasilkan bilangan acak dari 1 dan 2. Jika hasil 1 maka jenis random adalah angka, jika selain itu makan jenis random huruf. Sehingga kode menjadi berikut:

function GenerateKey: string;
var
    x, i : integer;
begin 
  for x := 1 to 5 do
    begin
        for i:= 1 to 5 do
        begin
            //Random untuk memilih angka atau huruf
            randomize;
            int := 1 + random(2);

            if int = 1 then
            begin
                //Random angka
                randomize;
                int := 1 + Random(9);
                result := result + IntToStr(int);
            end else
            begin
                //Random Huruf
                randomize;
                int := 1 + Random(26);
                buff := buff + Huruf[int];
            end;
        end;
    end;
end;

Masing-masing grup akan diberikan tanda "-", kecuali grup terakhir. Kode diubah menjadi:

function GenerateKey: string;
var
    x, i : integer;
begin 
    for x := 1 to 5 do
    begin
        for i:= 1 to 5 do
        begin
            //Random untuk memilih angka atau huruf
            randomize;
            int := 1 + random(2);

            if int = 1 then
            begin
                //Random angka
                randomize;
                int := 1 + Random(9);
                result := result + IntToStr(int);
            end else
            begin
                //Random Huruf
                randomize;
                int := 1 + Random(26);
                result := result + Huruf[int];
            end;
        end;
           if x < 5 then
          result := result + '-';
    end;
end;

Dibawah ini adalah contoh penggunaan fungsi diatas:

Membuat CD Key 2012-09-10T09:57:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer