Sekarang kita akan menyajikan suatu fungsi sederhana yaitu mengkonversi dari bilangan desimal ke ke bilangan biner dengan menggunakan Borland Delphi. Silakan lihat fungsi di DecToBinStr berikut ini. 
function TForm1.DecToBinStr(bil: integer): string;
var
  str : string;
  i : integer;
  negative: Boolean;
begin
  if bil < 0 then
    negative := true;
  bil:= abs(bil);
  for i:= 1 to SizeOf(bil) * 8 do
  begin
    if bil < 0 then
      str := str + '1'
    else
      str := str + '0';
    bil := bil shl 1;
  end;
  delete(str,1,pos('1',str)-1);
  if negative then str := '-' + str;
  result := str;
end;

Source code lengkap dari project ini bisa Anda download di sini. Segala macam saran, kritik dan komentar silakan dikirimkan ke sony-ak@sony-ak.com. Untuk tips dan trik lain silakan baca di www.sony-ak.com.

Terimakasih.

    Source: geocities.com/hackermuda/exploits

               ( geocities.com/hackermuda)