Selasa, 06 September 2016

Cara Mengenskripsi File Config Pada Project Injek Dengan Delphi 7

Selasa, 06 September 2016 - www.indoblog.me Ok sobat Delphier semuanya silahkan langsung disimak saja Tips Cara Mengenskripsi File Config Pada Project Injek Dengan Delphi 7 dan apa sih maksudnya dari enscryption file config ini, ok bagi anda yang pernah menggunakan program seperti injeck header surfer atau inject header query dan anda menemukan sebuah penyimpanan file dengan format save as config tetapi yang dikunci atau digembok maka dengan begitu anda sudah tepat membaca tutorial ini.

Dan apa saja yang bisa dienskripsi, yang dienskripsi pada program injek anda biasanya adalah seputar bug host maupun payloadnya yang digunakan dan yang lain-lain maka dengan begitu maka biasanya bug host anda berada di edit.text maka dengan begitu walupun anda share confignya ke orang lain maka bug yang anda gunakan tidak akan bisa dibaca oleh orang tersebut.


Atau mungkin anda juga pernah menggunakan program eproxy atau sejenis http injektor dan ada file config yang dikunci maka dengan begitu anda juga bisa menggunakan tutorial ini agar file config anda tetap aman dan terjaga dan berikut tipsnya.

1. Pada tahap pertama seperti biasa silahkan buka delphi anda lalu tambahkan 3 Edit, 3 Checkbox, dan 2 button (hanya contoh saja ya bray) kemudian pada button1 ganti captionnya menjadi load dan pada button2 captionnya ganti menjadi save kira kira desain seperti pada gambar dibawah ini:

Membuat Program Aplikasi Enskripsi Deskripsi Dengan Mudah dan Cepat

2. Kemudain yang selanjutnya silahkan tambahkan inifiles pada uses untuk contohnya bisa kamu lihat pada gambar dbawah ini saja;

Membuat Program Aplikasi Enskripsi Deskripsi Dengan Mudah dan Cepat

3.Kemudian diatas implementation atau pada variable form1 tambahkan code Myini: TIniFile; kemudian setelah {$R *.dfm} silahkan tambahkan semua coding dibawah ini;

 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);
  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;

Membuat Program Aplikasi Enskripsi Deskripsi Dengan Mudah dan Cepat

4. Kemudian pada button2 atau pada button save silahkan tambahkan kode dibawah ini dan contohnya bisa kamu lihat digambar bawah saja;

  MyIni := TIniFile.Create(GetCurrentDir+'\Config.txt');
  Myini.WriteString ('Encryption Config', 'Test1', Encrypt(Edit1.Text));
  Myini.WriteString ('Encryption Config', 'Test2', Encrypt(Edit2.Text));
  Myini.WriteString ('Encryption Config', 'Test3', Encrypt(Edit3.Text));
  Myini.WriteBool ('Encryption Config', 'Test4', CheckBox1.Checked);
  Myini.WriteBool ('Encryption Config', 'Test5', CheckBox2.Checked);
  Myini.WriteBool ('Encryption Config', 'Test6', CheckBox3.Checked);
  Application.MessageBox('Config berhasil disave','Sukses',mb_iconinformation);

Membuat Program Aplikasi Enskripsi Deskripsi Dengan Mudah dan Cepat

5. Kemudian pada button1 atau pada button load silahkan tambahkan kode dibawah ini untuk contohnya bisa kamu lihat gambar saja;

  MyIni := TIniFile.Create(GetCurrentDir+'\Config.txt');
  Edit1.Text := Decrypt(Myini.ReadString ('Encryption Config', 'Test1', Edit1.Text));
  Edit2.Text := Decrypt(Myini.ReadString ('Encryption Config', 'Test2', Edit2.Text));
  Edit3.Text := Decrypt(Myini.ReadString ('Encryption Config', 'Test3', Edit3.Text));
  CheckBox1.Checked := Myini.ReadBool ('Encryption Config', 'Test4', CheckBox1.Checked);
  CheckBox2.Checked := Myini.ReadBool ('Encryption Config', 'Test5', CheckBox2.Checked);
  CheckBox3.Checked := Myini.ReadBool ('Encryption Config', 'Test6', CheckBox3.Checked);
  Application.MessageBox('Config berhasil diload','Sukses',mb_iconinformation);

Membuat Program Aplikasi Enskripsi Deskripsi Dengan Mudah dan Cepat

6. Yang terakhir silahkan tekan F9 atau run kemudian silahkan dicoba pada kolom edit silahkan anda isi dengan bug host anda kemudian silahkan save lalu silahkan anda buka file config.txt anda lalu silahkan lihat bahwa bug host anda sudah dienskripsi datanya contohnya bisa anda lihat seperti nampak pada gambar dibawah ini;

Membuat Program Aplikasi Enskripsi Deskripsi Dengan Mudah dan Cepat

Ok Mungkin tutorial singkat cara bikin program enskripsi deskripsi dengan delphi, dan untuk menghasilkan enskripsi yang lebih kuat silahkan anda acak alphabetnya diatas dan bagi anda yang kesulitan membuatnya silahkan unduh contoh source codenya DISINI dan passrarnya silahkan masukan url postingan artikel ini saja secara lengkap yah :D

Lihat Juga: Cara Mempercantik Form Delphi Dengan Business Skin Form dan Alphaskin

Ok Guys Itulah Tutorial Cara Mengenskripsi File Config Pada Project Injek Dengan Delphi 7 Terbaru 2016 semoga bisa menjadi sebuah pelajaran yang berharga buat anda dan atas kunjungannya kami ucapkan hatur nuhun pisan, Wassalam.


EmoticonEmoticon