Loading...

Cara Membuat Encryption Pada Config TiniFile dengan Delphi

3:51 PM Add Comment

Cara Membuat Encryption Pada Config TiniFile dengan Delphi - Menerapkan encryption pada config akan membuat data pribadi menjadi aman, misalkan kita memasukan login & password yang mungkin tidak ingin di ketahui orang banyak.

Sebelum itu mari kita mengenal apa itu encryption :)
Encryption adalah suatu cara untuk meningkatkan keamanan dari suatu message atau file dengan cara mengacak informasi message atau file tersebut dan hanya bisa dibaca oleh seseorang yang mempunyai kunci Encryption untuk mengembalikan acakan nya (Decryption). 
pertama-tama mari kita buat form percobaan nya dulu, buat sekiranya mirip seperti gambar di bawah ini:
selanjutnya tambahkan IniFiles pada uses di delphi, dan buat variable string Myini: TIniFile;.
kemudian copas funcion Encrypt/Decrypt nya tepat dibawah {$R *.dfm}.
function Encrypt(Value: String): String;
const
b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
  pad: PChar = '====';
  function EncodeChunk(const Chunk: String): String;
  var
    W: LongWord;
    i, n: Byte;
  begin
    n := Length(Chunk); W := 0;
    for i := 0 to n - 1 do
          W := W + Ord(Chunk[i + 1]) shl ((2 - i) * 8);
    Result := b64alphabet[(W shr 18) and $3f] +
                          b64alphabet[(W shr 12) and $3f] +
                          b64alphabet[(W shr 06) and $3f] +
                          b64alphabet[(W shr 00) and $3f];
    if n <> 3 then
          Result := Copy(Result, 0, n + 1) + Copy(pad, 0, 3 - n);   //add padding when out len isn't 24 bits
  end;
begin
  Result := '';
  while Length(Value) > 0 do
  begin
    Result := Result + EncodeChunk(Copy(Value, 0, 3));
    Delete(Value, 1, 3);
  end;
end;

function Decrypt(Value: String): String;
const b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
  function DecodeChunk(const Chunk: String): String;
  var
    W: LongWord;
    i: Byte;
  begin
    W := 0; Result := '';
    for i := 1 to 4 do
          if Pos(Chunk[i], b64alphabet) <> 0 then
            W := W + Word((Pos(Chunk[i], b64alphabet) - 1)) shl ((4 - i) * 6);
    for i := 1 to 3 do
          Result := Result + Chr(W shr ((3 - i) * 8) and $ff);
  end;
begin
  Result := '';
  if Length(Value) mod 4 <> 0 then Exit;
  while Length(Value) > 0 do
  begin
    Result := Result + DecodeChunk(Copy(Value, 0, 4));
    Delete(Value, 1, 4);
  end;
end;
nah sekarang masukkan cooding ini kedalam button Save.
  MyIni := TIniFile.Create(GetCurrentDir+'\Config.txt');
  Myini.WriteString ('Encryption Config', 'TestE1', Encrypt(Edit1.Text));
  Myini.WriteString ('Encryption Config', 'TestE2', Encrypt(Edit2.Text));
  Myini.WriteString ('Encryption Config', 'TestE3', Encrypt(Edit3.Text));
  Myini.WriteBool ('Encryption Config', 'TestC1', CheckBox1.Checked);
  Myini.WriteBool ('Encryption Config', 'TestC2', CheckBox2.Checked);
  Myini.WriteBool ('Encryption Config', 'TestC3', CheckBox3.Checked);

  Application.MessageBox('Config berhasil tersimpan','Sukses',mb_iconinformation);
dan yang ini masukkan ke Button Load.
  MyIni := TIniFile.Create(GetCurrentDir+'\Config.txt');
  Edit1.Text := Decrypt(Myini.ReadString ('Encryption Config', 'TestE1', Edit1.Text));
  Edit2.Text := Decrypt(Myini.ReadString ('Encryption Config', 'TestE2', Edit2.Text));
  Edit3.Text := Decrypt(Myini.ReadString ('Encryption Config', 'TestE3', Edit3.Text));
  CheckBox1.Checked := Myini.ReadBool ('Encryption Config', 'TestC1', CheckBox1.Checked);
  CheckBox2.Checked := Myini.ReadBool ('Encryption Config', 'TestC2', CheckBox2.Checked);
  CheckBox3.Checked := Myini.ReadBool ('Encryption Config', 'TestC3', CheckBox3.Checked);

  //Application.MessageBox('Config berhasil diload','Sukses',mb_iconinformation);
Nah sekarang coba RUN (f9) project kamu, dan coba klik button Save. kemudian liat pada file config save nya tadi. maka akan tampak seperti dibawah ini:

Sekarang kamu berhasil Membuat Encryption Pada Config TiniFile dengan Delphi :) ,untuk selanjutnya silahkan di kembangkan lagi dan lebih di kreasikan lagi ^_^.

-=[ Download Soure Code ]=-
[ SolidFiles | TusFiles | UsersCloud ]

Alpha Controls v11.14 Stable Full Version

8:09 PM 2 Comments

Alpha Controls v11.14 Stable Full Version -  Seperti sebelum sebelumnya sketbook sering memberikan update terbaru dari AlphaControls Full Version yang merupakan salah satu komponen yang bisa mempercantik tampilan project kamu. jadi tanpa basa basi lagi.

Ada beberapa fitur yang baru dari Alpha Controls v11.14 Stable Full Version ini, diantaranya:

  • Fixed error of loading in the TsVirtualImageList component
  • Fixed error in the TsSkinSelector component
  • Added RightToLeft BidiMode support in the TsComboEdit control
  • Some improvements in the cxGrid support
  • Optimized the MakeRotated90 function
  • Improved scaling in several components
  • Removed flickering of child controls placed on the TsGradientPanel component
  • A lot of minor bug-fixes and improvements

Link Download Alpha Controls v11.14 Stable Full Version
(Support Delphi 5/6/7/2005-2010/XE-XE8, Builder 6/2006-2010/XE-XE8, RX Seattle, RX Berlin under Windows XP and newer)
Componen:
Delphi 5 | Delphi 6 | Delphi 7 | Delphi 2005 | Delphi 2006 | Delphi 2007 | Delphi 2009 | Delphi 2010 | Delphi XE | Delphi XE2 (x64) | Delphi XE3 (x64) | Delphi XE4 (x64) | Delphi XE5 (x64) | Delphi XE6 (x64) | Delphi XE7 (x64) | Delphi XE8 (x64) | Delphi 10 (x64) | Delphi 10.1 Berlin (x64)

All Component:
AlphaControls v11.14 Delphi Full Version

Skins & Skin Editor:
AlphaControls v11.14 Download Skin

Cara Membuat Show/Hide PasswordChar

11:55 AM Add Comment
Cara Membuat Show/Hide PasswordChar [ Delphi ] - Buat yang sering membuat program yang ada form login nya, bagus untuk menggunakan cara ini agar terlihat propesional xD.

Simple dan gak rumit dalam pembuatan nya, cukup tambahkan 2 Label 2 Edit 1 CheckBox dan buat terlihat mirip seperti pada gambar di atas. selanjutnya masukkan cooding ini ke dalam CheckBox atau klik 2x pada CheckBox dan masukkan ini:
  if CheckBox1.Checked then
    Edit2.PasswordChar := '*' else
    Edit2.PasswordChar := #0;
Pada char "*" kamu bisa ganti sesuai selera misanya dengan "+" dsb. Coba RUN (F9) dan lihat hasilnya :)

Download Source Code

Cara Membuat Minimize to Tray Dengan Balloon Message

11:18 AM Add Comment
Cara Membuat Minimize to Tray Dengan Balloon Message [ Delphi ] - Dalam pembuatan suatu program aplikasi dengan delphi, bagusnih kalau di terapkan ke dalam aplikasi yang kamu buat agar terlihat lebih simple dan minimalis.

Disini saya menggunakan komponen TrayIcon yang punya Busines Skin Form (BSF), jadi sebelum menggunakan cara ini download dan install dulu komponen BSF di delphi kamu, Business Skin Form | Mempercantik Form Delphi.

Pertama ambil komponen bsTrayIcon di tab komponen BSF VCL, letakkan pada form dan masukkan ini kedalam Events > onDblClick pada komponen bsTrayIcon.
  if Visible then begin
    Application.Minimize;
  end else begin
    Show;
      Application.Restore;
  end;
Sekarang kita akan membuat Balloon Message nya. Masuk ke tab Events > onHide pada Events Form, dan masukkan ini.
  bsTrayIcon1.ShowBalloonHint('SketBook Tutorial',
            'Minimize To Tray..' + #13 +
            'Klik 2x Untuk Buka Kembali',
            bsbitInfo);
disini kamu bisa merubah kalimat pesan yang nantinya akan muncul sebagai Baloon Message nya.

Sekarang coba RUN (F9) dan coba klik minimize, jika berhasil maka akan tampak seperti pada gambar GIF diatas. yang mau source codenya juga silahkan ambil saja.

Download Source Code

Cara Menginstall Komponen DosCommand di Delphi XE

3:49 PM Add Comment
Cara Menginstall Komponen DosCommand di Delphi XE - Sebenarnya kita bisa menggunakan komponen DosCommand dari Delphi 7, Tapi ada yang harus kita modifikasi dari komponen nya supaya dapat di install di Delphi XE.

Sebagai contoh disini saya menggunakan Delphi XE 6, kalau belum punya bisa download dari link ini Embarcadero Delphi XE6 Full Version. buka file DosCommand.pas dengan Delphi dan temukan ini di bawah implementation,
type TCharBuffer = array[0..MaxInt - 1] of Char;
kemudian ganti dengan ini,
type TCharBuffer = array[0..MaxInt div 8] of Char;
Kemudian kamu save dan komponen pun siap di install.

Cara install nya, buka Delphi XE kamu klik Componen > Install Componen > install into an existing package > klik "..." dan cari file DosCommand.pas yang kamu modif tadi. klik Next

kemudian akan sampe pada form seperti ini, klik "..." pada package name dan pilih "DOSCommand_AN_D9", kemudian Finish.
Klik kanan pada package yang kamu buka tadi dan lakukan Compile, setelah dipastikan tidak ada error, sekarang klik Install. lebih jelas liat GIF di bawah ini.
Jika berhasil maka akan tampil muncul pesan seperti ini.

Untuk link download komponen disini saya siapkan 2 Dos untuk Delphi XE, yang satunya belum di modif dan yang sudah saya modif, terserah mau yang mana :)  kalau yang sudah di modif kamu tinggal install aja, kalau belum ya di modif dulu hahaha...

Download Componen DosCommand Delphi XE

Cara Menginstall Komponen DosCommand di Delphi 7

2:57 PM Add Comment
Cara Menginstall Komponen DosCommand di Delphi 7 - Pertama download dulu komponen doscommand kemudian extrack dan pindahkan file doscommand nya ke dalam folder Lib yang ada di folder instalan Delphi 7 (link download ada di akhir postingan).

Buka Delphi 7  klik File > Open > cari file "DOSCommand_AN_D9" yang kamu pindahkan tadi ke dalam folder Lib delphi.
Setelah itu akan muncul tampilan yang seperti ini, klik Compile > kemudian klik Install.
Dan jika berhasil maka akan tampil popuo message seperti ini, dan komponen DosCommand siap digunakan.
Komponen DosCommand ada di Tab Komponen Samples.
Download Component DosCommand.

SERVER 1 SERVER 2