Membangkitkan Random String Menggunakan Lazarus Pascal

 Sepenggal kata acak terkadang dibutuhkan dalam beberapa aplikasi seperti membangkitkan kode kata kunci atau token yang sulit ditiru.

Dalam pemrograman Lazarus Pascal tersedia perintah pengacakan angka yakni prosedur Randomize yang selalu melakukan pengacakan baru dan kemudian diikuti dengan fungsi Random() 

function Random(  l: LongInt):LongInt;

function Random(  l: Int64):Int64;

Lantas bagaimana jika kita ingin membangkitkan pengacakan huruf bukan angka saja karena dalam Pascal sepertinya fungsi ini tidak tersedia.

Membangkitkan Random String menggunakan Lazarus Pascal bisa menggunakan fungsi yang dibuat dibawah.

function RandomString(Num: integer): string;

var

  s: string;

  i, j, k: integer;

begin

  s:= 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';

  j:= Length(s);

  Randomize;

  for i:=1 to Num do

  begin

    k:= Random(j);

    Result:= Result + s[k];

  end;

end;  

Kamu tinggal memasukkan jumlah angka untuk mendapatkan string yang diacak. Saya juga membuat contoh program untuk membangkitkan huruf acak yang bisa kamu unduh disini.

Semoga bermanfaat.