Jumat, 30 September 2016

Cara Membaca dan Menulis Ulang Registry Pada Tunnel Bitvise Dengan Delphi

Jum'at, 30 September 2016 - www.indoblog.me Perkembangan tekhnologi memang semakin menarik untuk dipelajari baik dari segi manfaat dan kegunaannya maupun yang lainnya dan salah satu topik yang menarik yang akan dibahas kali ini adalah tentang Bagaimana Cara Membaca dan Menulis Ulang Registry Pada Tunnel Bitvise Dengan Delphi , Kenapa kita harus membaca dan menulis ulang kodenya, seperti yang kita ketahui bahwa aplikasi terbaik adalah yang tidak memakan reseources ram dan contohnya adalah penggunaan inifiles sebenarnya lebih ringan menggunakan registry langsung dalam penyimpanan datanya, tetapi kesalahan dalam pengeditan registry juga bisa berakibat fatal pada system operasi kita.

Dalam sebuah induk komputer registry bisa dibilang database utamanya komputer karena hampir semua pengaturan otaknya ada disana diibaratkan manusia, registry itu otaknya manusia, bahkan yang paling fatal adalah ketika virus menginfeksi registry bahkan kegagalan registry bisa mengakibatkan system failure dan harus instal ulang jika sampai tidak bisa di restore.

Baca Juga: Cara Membuat Password Char Di Delphi Mudah dan Simple
Panduan Dasar Pemograman Delphi Terbaru 2016

Disini admin ingin berbagi tentang membaca registry yang digunakan oleh aplikasi bitvise terutama untuk penyimpanan hostkeynya, untuk masuk registry silahkan pada windows ketik saja "regedit" dan disini admin akan berikan gambaran mudah-mudahan ada yang mau meneruskan implementasi ini terutama bagi yang hobi ngoprek internet gratis :D

Untuk pengujiannya silahkan buka delphi anda lalu tambahkan uses Registry, kemudian silahkan tambahkan variable baseRegistry : String; pada form utama lalu kemudian silahkan tambahkan kode dibawah ini tepat dibawah {$R *.dfm}

Function ReadRegistry (regKey,fieldTeks : String) : string;
Var
Reg : TRegistry;
path : String;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\Bitvise\HostKeys';
if OpenKey(regKey,true) then
begin
if ValueExists(fieldTeks) then
result := ReadString(fieldTeks)
end
else
CloseKey;
end;
end;

Procedure WriteRegistry(keyReg,fieldTeks,valueTeks : String);
Var
Reg : TRegistry;
path : String;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\Bitvise\HostKeys';
if OpenKey(keyReg,true) then
Writestring(fieldTeks,valueTeks)
else
CloseKey;
end;
end;

Kemudian silahkan pada oncreate form utama silahkan masukan kode dibawah ini; yang dimana ini adalah fungsi untuk membacanya;

baseRegistry := ReadRegistry('\Software\Bitvise\HostKeys','HostKeys -hostKeyMD5='' -hostKeyBB='' -hostKeyFile=''  ');

Kemudian pada pembacaaannya anda bisa panggil lewat button atau lewat kondisi yang lainnya tergantung pola yang anda inginkan tetapi admin taruhlah dengan button saja;

WriteRegistry('\Software\Bitvise\HostKeys','HostKeys -hostKeyMD5='' -hostKeyBB='' -hostKeyFile='' ',baseRegistry);

Yang anda harus perhatikan adalah 3 kode dibawah ini, ketika anda pertama kali login bitvise maka anda akan menemukan 3 kode dibawah ini dan silahkan dikembangkan kembali.

-hostKeyMD5='ISI KODE'
-hostKeyBB=ISI KODE'
-hostKeyFile=ISI KODE'

Sumber Referensi Tulisan: bitvise.com/files/sftpc-v6.00-usage.txt

Baca Juga: Cara Membuat File Regsitry Sendiri Pada System Operasi Windows Dengan Delphi

Hanya Itu dulu info dengan Cara Membaca dan Menulis Ulang Registry Pada Tunnel Bitvise Dengan Delphi semoga bermanfaat dan membantu dan selamat bereksperimen ria and happy coding.


EmoticonEmoticon