Cara Membuat Plink Agar Bisa Auto Reconnect Otomatis (Putty Link)

Cara Membuat Plink Agar Bisa Auto Reconnect Otomatis, Plink atau lebih dikenal dengan Putty Link = Plink adalah program berbasis teks link yang dimana fungsi ini dijalankan dengan perintah batchfiles pada command pro di windows bawaan kita dengan begitu pada dasarnya program ini menjalankan program dengan memanfaatkan program yang ada pada windows kita seperti halnya RDP atau remot desktop, jadi saya rasa ketika anda membutuhkan postingan ini saya anggap anda memahami dengan judul postingan kali ini. ok bagi anda yang ingin membuat single plink atau multi plink bisa baca baca di untuk single plink lihat di tutorial Cara Membuat Tunnel Plink Pengganti Bitvise dan Proxifier dan untuk yang multi plink bisa dilihat di Cara Membuat Tunnel Multi Plink 2015 ok dari kedua contoh tutorial tersebut menurut anda apa yang paling mencolok dari segi perbedaannya, yang paling mencolok dari kedua perbedaan yang single dan multi plink tersebut adalah terletak pada komponen doscommand, jadi jika anda hanya menggunakan single plink dia akan menggunakan 1 doscommand dan jika dia menggunakan multi plink misal 2 plink dia akan menggunakan 2 doscommand dan seterusnya, tetapi pada kenyataannya yang multi plink juga mau 1 hingga 5 login ssh tetap anda akan menggunakan 1 ssh yang sama nah pada tutorial yang multi plink yang saya berikan jika anda jeli maka anda bisa menggunakan 2 akun ssh yang berbeda tetapi dalam 1 koneksi, jika anda jeli karena kodenya memang dipisahkan, kalau anda mau login hingga beberapa plink dengan 1 ssh anda tidak usah mengurutkan banyak kode seperti halnya yang ada pada postingan multi plink saya, jika anda ingin login plink beberapa plink tetapi dengan 1 akun yang sama untuk penambahan kodenya sangat sederhana sekali lakukan saja seprti anda membuat multi injek, contoh:

 var
Reg: TRegistry;
Path: String;
cmd1: String;
proxymetode: Integer;
proxy: string;
UserName,password,porthost,host,portproxy:string;
Proxifier,zonkplink : string;
begin
Proxifier:='zonksel\Proxifier.exe';
zonkplink:='zonksel\zonksel\zonksel.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(plinkplonk),nil,SW_HIDE);
username:=Edit1.Text ;
password:=Edit2.Text;
host:=Edit3.Text;
porthost:=Edit4.Text;
proxy:=Edit5.Text;
portproxy:=Edit6.Text;
Button2.Enabled := true;
Button1.Enabled := false;
if CheckBox1.Checked then
proxymetode:=3
else
begin
proxymetode:=0;
end;
Reg := Tregistry.CReate;

try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPort', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End else
Begin
OpenKey(Path,False);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPor', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;
end;

Contoh diatas adalah untuk single plink, bagi anda yang ingin membuat multi plink dengan 1 akun ssh yang sama anda tidak usah mengulang kodenya dari awal diatas hingga akhir yang perlu anda lakukan adalah menambahkan perintah batchnya saja dengan perintah command yang berbeda, dsi delphi anda tinggal tambahkan doscommand berapa plink yang ingin anda buat, contohnya misal menjadi 2 atau 3 plink tetapi dengan 1 akun ssh yang sama, saya ambil lagi contoh diatas.

 var
Reg: TRegistry;
Path: String;
cmd1: String;
proxymetode: Integer;
proxy: string;
UserName,password,porthost,host,portproxy:string;
Proxifier,zonkplink : string;
begin
Proxifier:='zonksel\Proxifier.exe';
zonkplink:='zonksel\zonksel\zonksel.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(plinkplonk),nil,SW_HIDE);
username:=Edit1.Text ;
password:=Edit2.Text;
host:=Edit3.Text;
porthost:=Edit4.Text;
proxy:=Edit5.Text;
portproxy:=Edit6.Text;
Button2.Enabled := true;
Button1.Enabled := false;
if CheckBox1.Checked then
proxymetode:=3
else
begin
proxymetode:=0;
end;
Reg := Tregistry.CReate;

try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPort', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End else
Begin
OpenKey(Path,False);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPor', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;
CMD2:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 2080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand2.CommandLine:=CMD2;
DosCommand2.OutputLines := Memo1.Lines;
DosCommand2.Execute;
CMD3:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 3080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand3.CommandLine:=CMD3;
DosCommand3.OutputLines := Memo1.Lines;
DosCommand3.Execute;
end;

Contoh diatas adalah dengan 3 plink (multi plink dengan 3 plink) perhatikan saja perbedaannya dimana, tetapi sebelum anda melakukan hal tersebut alangkah baiknya anda pisahkan dulu log datanya dari setiap 1 plink yang ada diatas contoh 3 plink jadi anda buat dulu 3 memo juga untuk setiap 1 plinknnya, perhatikan saja tulisan Memo1.Lines, alasan dipisahkan dulu untuk memastikan bahwa setiap 1 plink bisa berjalan dengan baik kalau misal dari ketiga plink tersebut sudah sinkron jalan semua anda tinggal menggabungkannya kembali dengan 1 memo.lines,  jadi sebelum anda membuat plink agar auto reconnect otomastis contoh diatas yang akan kita gunakan.

Untuk membuat plink agar bisa automatis reconnect kita akan membuat perintah error yang akan selalu berilang ulang untuk loping, tidak sepeti di bitvise ada isian untuk perintah reconnectnya, alasan yang paling umum agar plink bisa di reconnect otomatis adalah, mungkin anda ingin menggunakannya tanpa paket data dan tanpa pulsa karena plink plink yang tidak bisa auto reconnect dengan kartu yang tanpa pulsa akan sulit untuk loginnya, jadi mungkin itu salah satu alasan kenapa anda ingin membuat plink agar bisa auto reconnect otomatis.

Langkah Pertama yang harus anda lalukan adalah mencari tahu berapa plink yang anda gunakan saya asumsikan anda hanya single plink saja, silahkan buka project anda , lalu double klik tombol LOGIN/START/ON saya tidak tahu untuk tombol startnya anda pakai tulisan apa jadi klik saja tombol mulainnya saja, lalu temukan kode seperti dibawah ini: (perhatikan code lengkapnya diatas)

WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;

kode diatas hanya sebagai patokan untuk mencari kode yang akan anda gunakan sebagai bahannya nanti, yang perlu anda perhatikan adalah kode setelahnya, contoh:

CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;

mungkin dari beberapa contoh source kode plink akan banyak yang berbeda jadi itu hanya sebagai patokan saja, nah kode tersebutlah yang harus anda pasang ulang dengan membuat procedure baru, caranya klik doscommand1

procedure TForm1.DosCommand1NewLine(Sender: TObject; NewLine: String;
  OutputType: TOutputType);
var
  cmd1: String;
begin
if (pos('network error',NewLine)>0) or (pos('FATAL ERROR',NewLine)>0) then
begin
Memo1.Clear;
Sleep($0001);
CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;end;
  Memo1.Lines.Add(newline);
end;

Kode yang dicetak biru adalah kode yang saya ambil dari contoh yang sebelumnya paling atas, jadi itulah contoh auto reconnectnya dengan memanfaatkan kesalahan perintah network error dan FATAL ERROR yang ada di batch putty link itu sendiri, untuk kode variable 

var
  cmd1: String; // kode ini gak harus dipasang demikian jika pada variable utamanya sudah anda pasang.

if (pos('network error',NewLine)>0) or (pos('FATAL ERROR',NewLine)>0) then // kode ini sesuaikan dengan apa yang munculnya errror di putty log anda, dan cara diatas lalukan juga pada doscommand yang lainnya yang mungkin ingin anda reconnect jika anda membuat banyak multi plink.

zonksel\Plink.exe Kode tersebut yang dimana file plink.exe saya ada berada didalam folder zonksel kalau misal file plink.exe anda ada berada pada folder namaanda jadi panggil saja dengan kode namaanda\plink.exe semoga anda paham dan kalau file plink.exe berada 1 baris dengan software plinknya maka yang perlu anda panggil adalah langsung plink.exe langsung jadi secara harfiah dan logikanya konsep shellapi itu seperti itu.. semoga apa yang saya sampaikan bermanfaat.

Catatan Tambahan Seputar Kegagalan Dalam Prakteknya:

1.Pertanyaan: apakah jika injek belum diaktifkan plink akan terlihat reconnect?

Jawaban: walaupun injek belum diaktifkan jika opsi reconectnya benar log plink akan terlihat reconnect walaupun agak lambat, dan jika pilink diaktifkan dan injek diaktifkan maka log reconnect akan semakin cepat.

2.Pertanyaan: Kenapa Saya setelah mengikuti panduan diatas ko masih tetap tidak bisa mau rekoneknya?

Jawaban: Jika anda telah mengikuti panduan diatas kemungkinan ada duplikate string yang mengarah pada batch file user, host, pass, proxy yang akan dipanggil, dan jika anda membuat plink dari panduan yang saya berikan silahkan  perhatikan kode dibawah ini;

 var
Reg: TRegistry;
Path: String;
cmd1: String;
proxymetode: Integer;
proxy: string;
UserName,password,porthost,host,portproxy:string; // kode ini harus anda pindahkan dan hapus dan pindahkan ke variable form utama contoh dibawah:

 private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  UserName,password,porthost,host,portproxy:string; // pindahkan kodenya kesini
  CMD1: string;
  zonksel: string;
implementation

3.Pertanyaan: Kenapa Plink Saya setelah bisa konek tetapi sulit di matikan atau bahkan membuat komputer saya menjadi lola, atau mendadak menjadi aneh atau terlihat komputer saya menjadi berat atau bahkan plink tersebut tidak atau susah di offkan?

jawaban: matikan dulu secara paksa via task manager lalu perbaiki codingnnya terutama kode kill,nya kurang tepat baik itu untuk kill plink maupun proxifiernya, biasanya itu terjadi plink anda login lebih dari 1 tetapi proses kill out tidak membuat plink yang anda gunakan log out dan ketika anda login kembali maka plink sebelumnya belum mati dan reconnect terus menerus, klik tombol OFF/DISCONNECT/STOP atau anda kasih tulisan apa di program anda lalu cek kembali kode kill berikut:

var
Reg: TRegistry;
Path: String;
host:string;
begin
Killtask('Proxifier.exe');
Killtask('Plink.exe');

4.Pertanyaan: seperti apa sih kalau plink yang kita gunakan tandanya sudah on atau sudah terhubung ke servers atau sudah bisa digunakan?

jawaban: tandanya akan terlihat tulisan "Local port 1080 SOCKS dynamic forwarding" angka 1080 tergantung port plink yang anda gunakan.

Saya kira Tulisan ini dicukupkan dahulu semoga apa yang disampaikan bermanfaat dan itu saja informasi seputar  Cara Membuat Plink Agar Bisa Auto Reconnect Otomatis (Putty Link) Terima kasih.

Postingan selanjutnya; Konsep dan Cara Replace Header Pada Program Delphi 7

CAPSA (Cara Apa Saja) Informasi Download Lagu dan Proxy Free Full Version Blogger

Cara Membuat Tunnel Plink Pengganti Bitvise dan Proxifier

Pada Kesempatan kali ini saya mau berbagi seputar Cara Membuat Tunnel Plink Pengganti Bitvise dan Proxifier yang mungkin anda butuhkan, ok tanpa basa basi lagi mari kita langsung praktek saja tetapi sebelum anda praktek mungkin anda mau download proxifier paling terbaru silahkan cek dimari  Download Proxifier Terbaru v3.28 Rilis 1 April 2015 ok dan berikut step by step cara buat plink single plink,, dan tutorial ini masih ada klanjutannya terutama menambahkan fitur multinya, auto reconectnya dan lain lain, penambahan injektornya, dan penambahan dialer atau mmdnya yang akan dikemas dalam 1 aplikasi final plink nantinya dan harap jadi catatan jika saya disuruh memilih antara plink dan bitvise sudah barang tentu saya akan pilih plink karena plink tidak memakan reseources ram tidak seperti bitvise yang boros ram, dan silahkan dicoba dulu yang bagian pertama ini.

1. Pertama buka dulu program desktop andalan anda disini saya menggunakan delphi 7 lalu anda langsung saja tambahkan uses ,Tlhelp32, Registry,ShellAPI, seperti dibawah ini.

2. Yang kedua silahkan kumpulan dulu bahan bakunya seperti pada gambar dibawah ini, 6 edit, 1 memo atau anda bisa gunakan rich edit, 1 checkbox, 2 button dan 1 doscommand , pada umumnya doscommand ini harus anda tambahkan sendiri komponennya dalam artian anda harus download dulu karena defaultnya delphi ini tidak ada doscommandnya..

3. Yang ketiga Lalu double klik button 1 atau bisa anda namain on atau start lalu masukan coding; contoh lihat digambar bawah.

 var
Reg: TRegistry;
Path: String;
cmd1: String;
proxymetode: Integer;
proxy: string;
UserName,password,porthost,host,portproxy:string;
Proxifier,plinkplonk : string;
begin
Proxifier:='Proxifier\Proxifier.exe';
plinkplonk:='Proxifier\Profiles\zonksel.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(plinkplonk),nil,SW_HIDE);
username:=Edit1.Text ;
password:=Edit2.Text;
host:=Edit3.Text;
porthost:=Edit4.Text;
proxy:=Edit5.Text;
portproxy:=Edit6.Text;
Button2.Enabled := true;
Button1.Enabled := false;
if CheckBox1.Checked then
proxymetode:=3
else
begin
proxymetode:=0;
end;
Reg := Tregistry.CReate;

try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPort', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End else
Begin
OpenKey(Path,False);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPor', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
CMD1:=extractfilepath(application.exename)+'Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;
end;

4. Yang keempat lalu tambahkan function tepat dibawah {$R *.dfm}

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

  while Integer(ContinueLoop) <> 0 do
  begin
  if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
  UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
  UpperCase(ExeFileName))) then
  Result := Integer(TerminateProcess(
  OpenProcess(PROCESS_TERMINATE,
  BOOL(0),
  FProcessEntry32.th32ProcessID),0));
  ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

5. Yang kelima double klik Button 2 atau anda kasih nama stop atau Off lalu masukan kode;

var
Reg: TRegistry;
Path: String;
host:string;
begin
Killtask('Proxifier.exe');
Button1.Enabled := true;
Button2.Enabled := false;
Memo1.Clear;
Reg := Tregistry.CReate;
try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;
If Not KeyExists(Path) Then
Begin
DeleteKey(Path);
End else
Begin
DeleteKey(Path);
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;

6. Yang terakhir silahkan tekan run atau simbol segitiganya, jika tampilannya normal berarti tidak ada yang error kalau gak normal berarti ada yang salah silahkan lihat lihat lagi aja, mungkin anda kekurangan kode end; atau kelebihan kode end; atau ada begin sebelum var yang seharusnya tidak ada.

7. Yang ketujuh buat folder dulu kasih nama apa saja contoh saya bikin folder latihan buat plink, lalu klik file  Save project as silahkan arahkan ke folder yang sudah anda buat tadi yaitu "latihan buat plink" file name kasih nama terserah anda atau default juga gak apa apa yang penting nama unit namanya tidak sama dengan project dpr saja.

8. Yang kedelapan berikut contoh hasil save as dan save as projectnya.

9. Yang terakhir silahkan testing projectnya apakah penempatan host, pass, user, port, proxy, port udah benar belum, untuk folder proxifier dan plinknya ada diakhir postingan.

Baca Juga: Cara Membuat Plink Agar Bisa Auto Reconnect Otomatis

Untuk file pelengkapnya silahkan anda download DISINI dan hanya itu saja info seputar Cara Membuat Tunnel Plink Pengganti Bitvise dan Proxifier Terbaru 2015 semoga bermanfaat dan membantu terima kasih.

Selanjutnya; Cara Membuat Tunnel Multi Plink 2015

Cara Membuat Tunnel Multi Plink ( Bitvise dan Proxifier )

Ini Dia Cara Membuat Tunnel Multi Plink 2015 ( Bitvise dan Proxifier ) dimana ini merupakan lebih tepatnya untuk membuat plink multi login atau ssh multi login, karena pada dasarnya plink ini bekerja dengan putty yang sudah barang tentu tidak akan banyak memakan reseources ram komputer kita dan kelebihan dari plink adalah dia akan memiliki kecepatan upload yang sangat baik jadi bagi anda yang hobi upload upload gambar, file,video maka sangat cocok sekali kalau plink ini dijadikan sebagai bahan perantaranya, disini saya akan berikan tutorial multi plink 2 login akun ssh saja jadi kalau anda mau sampai login hingga 3 lebihan tinggal anda tambahkan komponen dosnya saja dan tentunya sesuaikan saja dengan apa yang ingin anda buat, tetapi disini saya akan berikan yang hanya 2 login saja, kalau anda mau login plink 1 login saja sudah saya berikan tutorialnya silahkan di baca Cara Membuat Tunnel Single Plink Pengganti Bitvise dan Proxifier ok tanpa panjang lebar lagi bagi sahabat yang mau mencoba membuatnya silahkan ikuti panduan sederhananya dibawah ini;

1. Langkah pertama silahkan buat dulu sebuah folder kosong kasih nama misal "Latihan Buat Plink" lalu buka software delphi anda kalau anda menggunakan delphi, kalau program delphi 7 tidak ada di windows sebelah kiri silahkan anda cari di C:\Program Files\Borland\Delphi7\Bin\delphi32.exe jika program delphi sudah terbuka silahkan anda buat dan tambahkan komponennya ke form seperti dibawah ini:

Daftar Komponennya:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    CheckBox1: TCheckBox;
    Edit5: TEdit;
    Edit6: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    DosCommand1: TDosCommand;
    DosCommand2: TDosCommand;

2. Yang kedua silahkan tambahkan uses  Tlhelp32, Registry,ShellAPI

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DosCommand, StdCtrls, Tlhelp32, Registry,ShellAPI;

3. Yang ketiga tambahkan function atau kode killer dibawah ini tepat setelah {$R *.dfm} lihat gambar bawah.

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

  while Integer(ContinueLoop) <> 0 do
  begin
  if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
  UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
  UpperCase(ExeFileName))) then
  Result := Integer(TerminateProcess(
  OpenProcess(PROCESS_TERMINATE,
         BOOL(0),
         FProcessEntry32.th32ProcessID),0));
  ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

4. Yang keempat klik button 1 (double klik) atau anda bisa lewat object inspector > event > onclick lalu tambahkan coding dibawah ini:

var
Reg: TRegistry;
Path: String;
cmd1: String;
proxymetode: Integer;
proxy: string;
UserName,password,porthost,host,portproxy:string;
Proxifier,zonkplink : string;
begin
if RadioButton1.Checked=True then begin
Proxifier:='zonksel\Proxifier.exe';
zonkplink:='zonksel\zonksel\zonksel1.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(zonkplink),nil,SW_HIDE);
host:=Edit1.Text;
username:=Edit2.Text;
password:=Edit3.Text;
porthost:=Edit4.Text;
proxy:=Edit5.Text;
portproxy:=Edit6.Text;
Button2.Enabled := true;
Button1.Enabled := false;
if CheckBox1.Checked then
proxymetode:=3
else
begin
proxymetode:=0;
end;
Reg := Tregistry.CReate;

try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPort', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End else
Begin
OpenKey(Path,False);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPor', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;

end else;

if RadioButton2.Checked=True then begin
Proxifier:='zonksel\Proxifier.exe';
zonkplink:='zonksel\zonksel\zonksel1.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(zonkplink),nil,SW_HIDE);
host:=Edit1.Text;
username:=Edit2.Text;
password:=Edit3.Text;
porthost:=Edit4.Text;
proxy:=Edit5.Text;
portproxy:=Edit6.Text;
Button2.Enabled := true;
Button1.Enabled := false;
if CheckBox1.Checked then
proxymetode:=3
else
begin
proxymetode:=0;
end;
Reg := Tregistry.CReate;

try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPort', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End else
Begin
OpenKey(Path,False);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPor', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;

Proxifier:='zonksel\Proxifier.exe';
zonkplink:='zonksel\zonksel\zonksel2.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(zonkplink),nil,SW_HIDE);
host:=Edit1.Text;
username:=Edit2.Text;
password:=Edit3.Text;
porthost:=Edit4.Text;
proxy:=Edit5.Text;
portproxy:=Edit6.Text;
Button2.Enabled := true;
Button1.Enabled := false;
if CheckBox1.Checked then
proxymetode:=3
else
begin
proxymetode:=0;
end;
Reg := Tregistry.CReate;

try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPort', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End else
Begin
OpenKey(Path,False);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPor', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 2080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand2.CommandLine:=CMD1;
DosCommand2.OutputLines := Memo1.Lines;
DosCommand2.Execute;

end;
end;

5. Yang kelima kemudian double klik button2 lalu tambahkan code dibawah ini: (lihat contoh gambar dibawah)

var
Reg: TRegistry;
Path: String;
host:string;
begin
Killtask('Proxifier.exe');
Button1.Enabled := true;
Button2.Enabled := false;
Memo1.Clear;
Reg := Tregistry.CReate;
try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;
If Not KeyExists(Path) Then
Begin
DeleteKey(Path);
End else
Begin
DeleteKey(Path);
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
end;

6. Yang keenam silahkan anda ganti tulisan labelnya seperti gambar dibawah ini, untuk tulisan edit edit dan edit silahkan anda kosongkan atau anda bisa langsung isi dengan ssh punya anda, jika sudah selesai silahkan pilih file dan save as projectnya ke folder yang sudah saya suruh buat diawal postingan.

7. Dan terakhir gambar dibawah ini adalah contoh hasil createnya , untuk folder zonkselnya silahkan anda download DISINI dan silahkan dicoba.

Baca Juga: Cara Membuat Plink Agar Bisa Auto Reconnect Otomatis

Dan hanya itu saja info kali ini tentang  Cara Membuat Tunnel Multi Plink 2015 ( Bitvise dan Proxifier ) semoga bermanfaat dan membantu, terima kasih.

CAPSA (Cara Apa Saja) Informasi Download Lagu dan Proxy Free Full Version Blogger

Trik Internet Gratis Terbaru All Operator Dengan Wiplink X2

Ok Guys kali Ini mimin mau ngasih Tips Trik Internet Gratis Terbaru 2016 All Operator Dengan Wiplink X2 yang dimana aplikasi ini hanya bisa digunakan untuk pengguna PC Desktop, Laptop maupun notebook dan buat pengguna android cari saja dengan kata kunci yang sesuai di "cari kata kunci" di atas dan aplikasi support untuk seluruh pengguna Kartu GSM baik untuk Telkomsel, Indosat, Axis, Tri, XL , Maxis dan lain sebagainya.

Ok dan pada postingan yang sebelumnya juga sudah dibagikan info dengan Kumpulan Subtitle Film Terbaru 2016 Bahasa Indonesia ok kita langsung saja ke tutorialnya dan silahkan disimak baik baik.

1. Pada langkah pertama siapkan dulu seperangkat komputer beserta modemnya dan jangan lupa kartu providernya silahkan sesuaikan saja anda sedang menggunakan provider apa? dan yang terpenting jangan ada pulsanya maupun paket datanya kalau masih ada paket datanya meningan habisin dulu saja biar tidak mubajir dan disini saya akan mendemostrasikan dengan kartu indosatooredo.

2. Pada langkah yang kedua kemudian masuk dulu ke situs proxylist.hidemyass.com secara default situs tersebut tidak bisa diakses karena sudah diblokir agar situs tersebut bisa dibuka alternatifnya adalah tinggal anda gunakan tutorial Cara Membuka Situs Yang di Blokir Dengan Mudah kemudian setelah anda masuk maka disana akan banyak list proxy gratis yang bisa anda dapatkan silahkan pilih salah satu list proxy disana dan anda harus tahu pasti bahwa list proxy tersebut masih aktif karena penggunaan proxy yang sudah tidak aktif hasilnya tidak akan maksimal walaupun nanti koneksi masih bisa dijalankan, proxy disini tujuannya adalah untuk melakukan resolve host atau remote proxy server setelah ada koneksi terjadi, contoh saya akan menggunakan yang di beri tanda garis merah dan jangan lupa pilih yang HTTP bukan yang HTTPS dan pilih yang biru biru bukan yang merah agar speednya bagus.

3. Pada langkah yang ketiga kemudian silahkan masuk dulu ke www.fastssh.com atau anda bisa lihat tutorial Cara Membuat Akun Fast SSH Terbaru 2016 silahkan anda daftar disana sebagai percobaannya pilih saja dulu yang create 999999 SSH Accounts/Day agar anda tahu dulu konsepnya seperti apa, nanti juga sambil jalan anda akan tahu sendiri, oh harus ini itu dulu.. dan yang terpenting setelah akun ssh anda jadi adalah contoh yang seperti saya kasih kotak merah atau saya taruh dibawah saja buat pelajaran, dan expired akun sampai 27 may 2016.

Username SSH : fastssh.com-wiplink-x2

Password SSH : wiplink-x2

Host IP Addr : nl-public.serverip.co

Dropbear Port: 443

4. Pada langkah yang keempat kemudian masuk ke google www.google.com ketikan kata kunci "Download Injek Indosat Mei 2016" atau "Download Injek Telkomsel Mei 2016 atau "Download Injek XL Mei 2016" atau ""Download Injek Axis Mei 2016" atau "Download Injek Tri Mei 2016" atau "Download Injek Maxis Mei 2016" kreatifitas pencarian kata kunci tergantung anda saja kemudian silahkan cari softwarenya disalah satu situs yang menyediakan injeknya, dan yang perlu jadi catatan adalah tidak semua injek yang anda dapatkan gratis di google masih work atau masih jalan atau masih konek, jika anda masih pemula dalam dunia internet gratis silahkan apa yang ingin anda tanyakan via kolom komentar.

5. Yang kelima adalah software wajibnya adalah "Wiplink X2" ini adalah software open source yang dikembangkan dari plink.exe, yang dimana pada konsep ini ada pengembangan dari yang "Wiplink X", dan pada "Wiplink X2" belum pernah admin bagikan tutorialnya tetapi bagi anda yang ingin membuat Tunnel Plink Dasarnya bisa dilihat di Cara Membuat Tunnel Plink Dengan Delphi 7 disana pernah admin bahas, dan pada konsep ini ada pengembangan modul dari sebelumnya yaitu:

- Ditambahkannya Modul Enable X11 Forwarding

-Ditambahkannya Modul Enable Agent Forwarding

-Ditambahkannya modul Enable Compression (pada wiplink x) modul ini sudah ada hanya saja disini kita bisa mendisablenya.

- Ditambahkannya modul Enable PTY Allocation

Secara default tutorial pembuatan aplikasi tunnel plink menggunakan commandline:

Doscommand:=ExtractFilePath(application.exename)+'tool\Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;

Doscommand= adalah sebuah komponen yang terdapat pada suatu bahasa program misalnya di delphi

ExtractFilePath(application.exename)= perintah eksekusi terhadap commandline didalamnya

-v= Pada putty link ini sebagai commandline menampilkan kode perintah di doscommand

-N= ini perintah commandline untuk ssh 2 dan mendisable perintah start shell

-C= ini perintah untuk kompressi data

-D= ini commandline untuk listen port atau dynamic socks forwarding yang umum anda ketahui adalah input ke Proxifier,
@= comandline untuk menghubungkan ke server contohnya username@ip-server
-pw= comandline untuk input password pada basis putty link (plink.exe) dll

Jadi hanya sebatas itulah tutorial pembuatan tunnelplink yang sudah ada sampai saat ini contohnya adalah tunnel plink buatan mas yono konsepnya memang sama seperti itu, dan pada "Wiplink X2" ini ada perbedaan mendasarnya bahkan hampir 50% update modulnya, seperti yang sudah dibahas sebelumnya, contohnya adalah saya menambahkan perintah Open source commandline -s yang dimana artinya adalah "remote command is an SSH subsystem" jadi remote ssh di sub systemnya, kemudian ada penambahan opsi remote proxy.

Kelebihan utama dari "WIPLINK X2" adalah reconnect sub sytemnya yang dimana aplikasi setelah dijalankan akan reconnect terus menurut setiap 1 detik sebelum menemukan koneksi yang terbuka, konsep ini saya pelajari dari reconnect PSIPHON jika anda sebelumnya pernah menggabungkan PSIPHON dengan injek dengan acuan injek anda ada lognya maka anda akan menemukan reconnect psiphon sangat cepat sekali, dan tanpa menyebabkan debug, nah "WIPLINK X2" ini sudah menggunakan konsep tersebut hanya saja masih pada 1 detik perreconnect karena masih dalam tahap ujicoba dan reconnect subsytemnya tidak saya tampilkan di log untuk menjaga ada yang mempelajari kode aslinya saja.

Kita lanjutkan kembali lihat lagi gambar atas , pada kotak hijau itu adalah bagian dari forwardnya silahkan dengan list proxy yang sudah saya sebutkan pada point 2 diatas, kemudian isikan juga akun ssh pada kotak biru yang sudah saya sebutkan pada point 3 diatas kemudian pada kota merah atau proxy isikan 127.0.0.1 dan angka 1111 samakan dengan listen port injek yang anda dapatkan dimanapun dan ingat setiap listen port injek itu berbeda beda dan tergantung yang bikin injeknya saja jadi angka 1111 itu belum tentu sama. jika sudah beres silahkan klik "SAVE" pada program wiplink x2

Untuk program "WIPLINK X2" bisa anda dapatkan dan download secara gratis DISINI (3,4 MB) dan password rarnya bisa anda download DISINI , pastikan anda klik skipp add untuk mendownload filenya, kami sengaja melakukan itu karena itu adalah bentuk iklan karena tanpa itu website ini tidak akan hidup.

6. Yang keenam kemudian silahkan jalankan modem anda, atau anda juga bisa menggunakan Universal MOdem silahkan download di MDMA TERBARU 2016, lalu jalankan injek anda, baru janalnkan wiplink x2 nya, jika log procces seperti dibawah ini yang saya kasih tanda warna merah "Acces Granted" itu artinya anda sudah siap berselancar di internet, tetapi pada beberapa kasus ada kalanya anda jangan menjalankan dulu modemnya yaitu konek dulu injeknya, lalu konek wiplinknya, lalu konek modemnya, pada awalnya mungkin anda akan bingung ini gimana itu gimana apalagi jika anda belum pernah ngerasain yang namanya internet gratis,.

Hanya satu kata yang ingin saya katakan: ketika anda mengetahui bahwa internet itu bisa benar benar gratis maka anda akan ketagihan dan akan mempelajarinya lebih dalam lagi, tidak percaya silahkan anda coba.

7. Kemudian untuk test speednya anda bisa cek di berbagai tempat misal dengan CBN atau dengan TELIN atau ketik saja keyword "speed test" di google pasti banyak referensinya.

Catatan: Jalankan aplikasi "WIPLINK X2" via "RUN AS ADMINISTRATOR" dan jangan pisahkan wiplink-x2.exe dengan folder toolnya.

Ok guys mungkin itu saja dulu tulisan Trik Internet Gratis Terbaru 2016 All Operator Dengan Wiplink X2 kurang lebihnya kami minta maaf dan atas kunjungannya saya ucapkan terima kasih dan satu catatan lagi bahwa "WIPLINK X2" bukanlah versi yang terakhir karena akan terus dikembangkan agar jauh lebih baik lagi, terima kasih.

Lihat Juga: Pengertian CDN, Tentang CDN, Daftar CDN Gratis

Cara Membuat SSH Tunneling Command Prompt Bitvise Terbaru

Ok Brother Silahkan Langsung disimak Tips Dengan Cara Membuat SSH Tunneling Command Prompt Bitvise Terbaru 2016 dan yang dimana ini adalah alat yang cukup ringan bagi anda yang sering menggunakan koneksi ssh (secure shell) dan apa saja kelebihannya dari aplikasi cmd bitvise ini, dan kenapa dinamakan cmd bitvise karena command linenya menggunakan stlnc dari bitvise, dan apakah ada perbedaan dengan bitvise sendiri, ya tentu saja sangat berbeda sekali dengan instaler bitvise, dan apa saja kelebihannya dan kekurangan dari tunnel paling powerfull ini?

Info Lainnya: Cara Buat Aplikasi CMD Windows Dengan Bantuan Delphi 7

Berikut adalah beberapa kelebihan dari tunnel command prompt bitvise ini yang diantaranya:

a. Tidak menggunakan Zlip yang seperti digunakan oleh plink, kalaupun plink dulu dianggap paling ringan bahkan cmd bitvise ini lebih ringan.

b. Sangat simple dan bahkan lebih mudah untuk menembus sensor/firewall bug yang anda gunakan untuk forwarding koneksi ssh anda.

c. Tidak menggunakan icon bitvise yang bertebaran di system tray walaupun anda nantinya bisa menggunakan beberapa multy login tidak seperti pada bitvise pada umumnya.

d. Dan ini yang lebih penting adalah sangat hemat ram, dan saya jamin cmd bitvise ini lebih hemat 3x lipat dari plink.

e. Program dan aplikasi cmd bitvise ini telah diimplementasikan pada VHE (Virtual Header Edition) dan baru diupdate beberapa waktu yang lalu.

f. Bagi yang ingin membuat fiture auto reconnectnya silahkan baca di CMD Bitvise Auto Reconnect

Dan untuk kekurangannya hanya 1 yaitu ketika anda menggunakan ssh server yang baru maka anda harus membuat cache ulang dulu di system komputer anda, dan untuk membuat cache bitvise sendri agar key tergenerate secara otomatis di cmd bitvise ini silahkan panduannya bisa anda baca DISINI saja.

1. Yang pertama silahkan tambahkan dulu ke form1 diantaranya; 1 Memo, 1 Doscomand, 1 Button dan 6 Edit kemudian silahkan desain kira-kira seperti pada gambar dibawah ini:

2. Yang kedua kemudian silahkan tambahkan uses ShellApi, TlHelp32; tepat dibawah implementation kemudian silahkan masukan kode dibawah ini tepat dibawah kode {$R *.dfm}

function KillTask(ExeFileName: string): Integer;

const

  PROCESS_TERMINATE = $0001;

var

  ContinueLoop: BOOL;

  FSnapshotHandle: THandle;

  FProcessEntry32: TProcessEntry32;

begin

  Result := 0;

  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);

  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

  while Integer(ContinueLoop) <> 0 do

  begin

    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =

      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =

      UpperCase(ExeFileName))) then

      Result := Integer(TerminateProcess(

                        OpenProcess(PROCESS_TERMINATE,

                                    BOOL(0),

                                    FProcessEntry32.th32ProcessID),

                                    0));

     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

  end;

    CloseHandle(FSnapshotHandle);

end;

3. Yang ketiga kemudian silahkan double klik button1 dan silahkan saudara masukan source code dibawah ini, contoh bisa lihat gambar saja;

var

  dir1, cmd1 :String;

  Pf, Pf_open :String;

begin

  pf := 'Tools\Proxifier.exe';

  if Button1.Caption = 'Connect' then begin

    Button1.Caption := 'Disconnect';

      dir1 := ExtractFilePath(Application.Exename)+'Tools\Bitvise.exe ';

      cmd1 := Edit3.Text+'@'+Edit1.Text+':'+Edit2.Text+' -pw='+Edit4.Text+' -proxy=y -proxyType=HTTP -proxyServer='+Edit5.Text+' -proxyPort='+Edit6.Text+' -proxyFwding=y -proxyListIntf=127.0.0.1 -proxyListPort=1081';

      DosCommand1.CommandLine := dir1 + cmd1;

      DosCommand1.Execute;

      Pf_open:='Tools\Profiles\Profile.ppx silent-load';

      Sleep(500);

      shellexecute(handle,'open',pchar(Pf),pchar(Pf_open),nil,sw_hide);

  end else begin

    Button1.Caption := 'Connect';

    KillTask('Bitvise.exe');

    KillTask('Proxifier.exe');

    Memo1.Clear;

  end;

4. Yang keempat lalu kemudian silahkan klik doscommand1 dan masukan source code atau listing yang ada dibawah ini;

var

  cmd1, dir1: String;

begin

  if (pos('error',NewLine)>0) or (pos('ERROR',NewLine)>0) then begin

    dir1 := ExtractFilePath(Application.Exename)+'Tools\Bitvise.exe';

    cmd1 := Edit3.Text+'@'+Edit1.Text+':'+Edit2.Text+' -pw='+Edit4.Text+' -proxy=y -proxyType=HTTP -proxyServer='+Edit5.Text+' -proxyPort='+Edit6.Text+' -proxyFwding=y -proxyListIntf=127.0.0.1 -proxyListPort=1081';

    DosCommand1.CommandLine := dir1 + cmd1;

    DosCommand1.Execute;

  end;

memo1.Lines.Add(NewLine);

5. Yang Kelima dan yang terakhir silahkan Run atau tekan f9 dan kemudian silahkan download dulu folder Tools DISINI dan simpan folder tersebut satu baris dengan project yang baru saja anda buat seperti contoh pada gambar dibawah ini, kemudian untuk perbandingannya adalah sebagai berikut:

a. Ganti Caption Button1 Menjadi Connect

b. Ganti Text Edit1 menjadi (Isi Dengan IP SSH Anda)

c. Ganti Text Edit2 menjadi Port SSH Anda misal 443

d. Ganti Text Edit3 menjadi User SSH Anda

e. Ganti Text Edit4 menjadi Password SSH Anda

f. Ganti Text Edit5 menjadi misal 127.0.0.1 (jika anda ingin menggunakan injek)

g. Ganti Text Edit6 menjadi (Samakan dengan Listen Port Injek anda)

Dan yang terakhir silahkan uji hasil racikan tersebut dan jika terlihat tulisan seperti pada gambar diatas Enabled SOCKS/HTTP proxy xxx berarti tools tersebut sudah siap digunakan, bahkan aplikasi ini lebih ringan dari pada plink? saya jamin ini lebih ringan dari plink.

Lihat Juga: Cara Mudah Membaca Serial Key Windows 7 Dengan Delphi

Dan bagi anda yang kesulitan membuatnya dan ingin contoh source code lengkapnya silahkan unduh DISINI dan untuk passrarnya silahkan kontak di grup IPC (Indonesian Phreakers Community) saja dan itulah info Cara Membuat SSH Tunneling Command Prompt Bitvise Terbaru 2016 semoga bermanfaat dan membantu dan wassalam.

Cara Membuat Payload Telkomsel Indosat XL Axis ALL Operator

Ini Dia Video Yang ditunggu Tunggu oleh Para Gretongers Yaitu Cara Membuat Payload Telkomsel Indosat XL Axis ALL Operator 2019 Ini Adalah Video Tutorial Yang Keempat untuk bagian yang ketiganya silahkan cek disini Cara Membuat Payload Inject All Operator 2015 ok Dimana Tekhnik Yang Akan Dibahas disini adalah Tekhnik Horizontal Payload Untuk Tekhnik Vertikal Payload Nanti di Video Yang Kelima, Harap Jadi Catatan Karena Ini Video Tutorial Bersifat Umum siapa saja bisa melihatnya, membacanya dan mendengarnya dan sewaktu waktu payload yang digunakan ini sudah tidak respone lagi Itu ada kemungkinan telah ditutup jalur aksesnya oleh pihak operator yang bersangkutan jadi dengan berbekal beberapa panduan dari video tutorial sebelumnya anda jadi sudah tahu konsep apa saja yang harus anda lakukan jika ini tidak jalan atau itu tidak jalan. , segera download videonya karena akun youtubenya sudah mendapatkan peringatan lagi ,thanks,,,

Artikel Sebelumnya: Kenapa Akses Internet Bisa Gratis ???

Kami tekankan sekali ini hanya sebagai video panduan dasar saja dan sewaktu waktu jika ada pihak yang bersangkutan keberatan dengan video video tutorial seperti ini kami sangat siap 100% untuk menghapusnya secara permanen tanpa ada tanda tanya lagi, maupun dari beberapa postingan blog kami yang terlalu berlebihan kami cukup siap untuk menghapusnya demi keamanan kita bersama, Terima Kasih.

Berikut adalah 2 Point Yang akan dibahas pada Video Tutor Kelima ini silahkan disimak:

1. Tekhnik Write Header dan Back Netdata Pada Payload

Buka Project sebelumnya yang ada pada video tutor sebelumnya

Sudah konek mari kita test browser jatuh atau tidak,,,

paham gak maksud saya jatuh??? kita coba.... lihat walaupun sudah bisa konek tetapi jatuh alias mudah diskonek... mau tau rahasianya,, bentar saya bongkar hanya untuk anda....

Perhatikan yang saya edit, sebenarnya mudah untuk mencarinya perhatikan saja yah...

athread.outboundClient.write (header); sleep(500);

athread.NetData:=payload + athread.netdata;

Nah itu yang diatas yang paling bikin mudah diskonek jadi pentupnya kurang pas, jadi harus serba pas biar enak masuknya gitu gan,, ok gan.. ngopi dulu gan mantap sore sore hujan gini mah... he he

kita test lagi jatuh tidak? yang bagus itu tesnya ke youtube yang berat berat jadi ketahuan injek yang anda pakai itu kurang bagus,, 

dan harap jadi catatan injek yang pernah saya bagikan tdk pernah menggunakan konsep yang pass 100% itu saya sengaja biar pada bisa buat sendiri dan di video ini saya bongkar trik triknya hanya buat anda rercinta yang memnag niat mau mempelajarinya...

perhatikan koneksi bitvise gak jatuh walaupun free ssh pasti anda tahu lah itu yang 999999/day sudah tentu banyak yang memakainya ok, kita test inet dulu bentar...

2. Membuat Manual Bug Host Pada Payload

maklum free ssh...

ya udah gitu aja gan,, masih banyak trik trik seputar internet mungkin diberangkas saya sudah ada 100 karungan tinggal dibongkar bongkar saja....

walaupun free ssh perhatikan latencynya kalau konsep payload yang kita gunakan sudah tepat dan setelah diperbaiki gak jatuh lagi benar gak,, ingin mengenal saya lebih jauh silahkan klik ABOUT di blog dan ADD FB SAYA....  sudah beres tinggal simpan aja..

Catatan: Pada Bagian Listen Port untuk edit text bukan edit 1 text harusnya edit2.text tetapi sesuaikan saja dengan list object inspector propertiesnya.

------------------Original Video By CAPSA -Cara Apa Saja----------------------

Video Tutorialnya Ada Dibawah ini....
Untuk Video Tutor ke Limanya; Cara Membuat Payload Redirect 301 Tutorial Bagian 5

Selanjutnya; Zonksel Plink v.1 Tools Pengganti Bitvise dan Proxifier Simple 2015

Bersambung ke video tutor yang kelima lain waktu.....

Hanya Itu Saja Info Seputar Cara Membuat Payload Telkomsel Indosat XL Axis ALL Operator 2015 Semoga bermanfaat dan membantu.

Komponen Delphi 7 Untuk Membuat SSH Client Sendiri

Cara membuat ssh sendiri atau Komponen Delphi 7 Untuk Membuat SSH Client Sendiri dimana dengan bantuan komponen tersebut maka tunnel ssh yang anda buat tidak lagi menggunakan perantara plink maupun bitvise yang sudah pada umum digunakan saat ini jadi nantinya ssh login adalah punya anda sendiri, ok tanpa panjang lebar lagi berikut adalah contoh penampakan komponennya yang saya coba iseng iseng buat juga mungkin dari anda ada yang mau mencobanya dan sebelumnya juga sudah saya berikan tips seputar Zonksel Bugs Host Checker Tools Pencari Bugs Berkualitas 2015 ok tanpa panjang lebar lagi bagi anda yang membutuhkannya komponennya silahkan langsung download DISINI saja.

Selanjutnya; Zonksel SSH Login v2 Tools Pengganti Bitvise dan Proxifier 2015

Semoga komponen secure bridge tersebut bisa anda gunakan sebagai bahan pelajaran dalam membuat ssh sendiri dan itu saja info seputar Komponen Delphi 7 Untuk Membuat SSH Tunnel Client Sendiri terima kasih dan salam sukses.

Cara Membuat Tunnel Open VPN Sendiri Dengan Delphi 7 Terbaru

Kali ini Saya mau berbagi Info Cara Membuat Open VPN Sendiri Dengan Delphi 7 Terbaru 2019, open artinya buka dan VPN artinya Virtual Private Network,, Vpn secara garis besarnya berada pada satu layer dengan SSH jadi saya tidak akan jelaskan kembali , banyak yang mengatakan open vpn tidak bisa digunakan untuk SC Non Jatim Tanpa pulsa tanpa kuota itu salah besar disini saya membuat atau mencoba mengembangkan aplikasi open vpn agar bisa digunakan kartu apa saja yang non pulsa dan non kuota,,, dan sebelumnya juga saya sudah share seputar Cara Membuat Payload Redirect 301 ok kita lanjut kembali open vpn disini yang akan dibuat cara kerjanya akan hampir sama dengan bitvise atau plink yang pernah saya share atau lihat DISINI atau DISINI ,, dan kelebihan open vpn yang akan dibuat disini adalah aplikasi open vpn yang bersifat portable dan untuk kekurangannnya adalah terletak masalah pada sertifikat crt dan mari kita sama2 untuk memecahkan masalah ini agar aplikasi ini bisa digunakan untuk all vpn seperti halnnya all ssh ok dan untuk http proxy menggunakan tap adapter jadi sahabat tidak menggunakan lagi yang namanya proxifier karena secara umumnya open vpn pakai tap adapter sebagai pengatur proxy keluar masuknya pada komputer sobat, diaplikasi ini disediakan No Prpxy dan Use Proxy petunjuk tersebut ditujukan jika sobat dan sahabat semuanya menggunakan use proxy berarti saudara menggunakan injek sebagai alat bantunya semoga anda dan sahabat paham maksudnya, ya udah tanpa panjang lebar lagi bagi sobat dan sahabat semuanya yang ingin mencobanya bisa langsung disimak,

1. Langkah pertama Buka Delphi 7 andalan anda lalu siapkan: memo (1) , button (1), edit text (6) , label (6), radiobutton (2), timer (1), doscommand (1) jika anda ingin menggunakan multi open vpn berarti anda hanya menyiapkan timer dan doscommand sesuai jumlah yang login yang ingin anda buat. jika anda jeli tampilannya tidak jauh berbeda dengan tutorial plink yang pernah saya share,,, untuk memo jika anda tidak mau reconnect berulang-ulang ubah ke sboth kalau fungsi open vpn ini agar bisa digunakan untuk all sc non pulsa diseluruh dunia anda harus membuat reconnect automatisnya (Tutorial Auto Recconect Open VPN Akan dibahas pada postingan selanjutnya);

2. Langkah yang kedua tambahkan uses TlHelp32, ShellAPI ,, shellapi berfungsi untuk memanggil program luar installer adapternya... didalam folder download nanti ada beberapa installer tap adapter yang bisa anda sesuaikan dengan adapter yang ingin anda gunakan.

3. Langkah yang ketiga masukan kode ini dibawah var dan diatas implementation:

 zonksel1,zonksel2,zonksel3,zonksel4,zonksel5,zonksel6,server_vpn,port_vpn,user_vpn,pass_vpn,proxyhost,proxyport : String;
 

4. Langkah yang keempat masukan fugsi baru kill task ini digunakan untuk prossse kill open vpn dan tap adapter baik in maupun out.

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
  if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
  UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
  UpperCase(ExeFileName))) then
  Result := Integer(TerminateProcess(
  OpenProcess(PROCESS_TERMINATE,BOOL(0),FProcessEntry32.th32ProcessID),0));
  ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

function processExists(exeFileName: string): Boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
  while Integer(ContinueLoop) <> 0 do
  begin
  if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
  UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
  UpperCase(ExeFileName))) then
  begin
  Result := True;
  end;
  ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

5. Yang kelima lalu double klik Button1, lalu masukan coding:

if Button1.Caption = 'Connect' then
begin
proxyhost := edit1.text;
proxyport := edit2.text;
server_vpn := edit3.text;
port_vpn := edit4.text;
user_vpn := edit5.text;
pass_vpn := edit6.text;
zonksel1 := ' --client --dev tun --proto tcp-client --remote '+server_vpn+' '+port_vpn+' --resolv-retry infinite --nobind';
zonksel2 := ' --ca ca.crt --cert cert.crt --key key.key --persist-key --persist-tun';
zonksel3 := ' --auth-user-pass '+user_vpn+' '+pass_vpn+' --comp-lzo --verb 3 --cipher AES-128-CBC';
zonksel4 := ' --fast-io --pull --route-delay 2 --redirect-gateway --push "route 0.0.0.0.0.0.0.0 255.255.255.0"';
zonksel5 := ' --http-proxy '+proxyhost+' '+proxyport+'';
if RadioButton1.Checked then
begin
DosCommand1.CommandLine := 'zonksel\openvpn.exe' +zonksel1+zonksel2+zonksel3+zonksel4;
end
else
if RadioButton2.Checked then
begin
DosCommand1.CommandLine := 'zonksel\openvpn.exe' +zonksel1+zonksel2+zonksel3+zonksel4+zonksel5;
end;
DosCommand1.Execute;
DosCommand1.OutputLines := Memo1.Lines;
if not processExists('zonksel\tapinstall.exe') then
begin
ShellExecute(Application.Handle,'open','zonksel\tapinstall.exe',PChar('install "zonksel\OemWin2k.inf"tap0901'),nil,SW_HIDE);
 end;
Button1.Caption := 'Disconnect';
RadioButton1.Enabled := False;
RadioButton2.Enabled := False;
if RadioButton2.Checked then
edit1.Enabled := False;
edit2.Enabled := False;
end else
begin
DosCommand1.Stop;
KillTask('zonksel\openvpn.exe');
KillTask('zonksel\tapinstall.exe');
ShellExecute(Application.Handle,'close','zonksel\tapinstall.exe',PChar('uninstall "zonksel\OemWin2k.inf"tap0901'),nil,SW_HIDE);
Timer1.Enabled:= False;
Memo1.Text:='';
Button1.Caption := 'Connect';
RadioButton1.Enabled := True;
RadioButton2.Enabled := True;
if RadioButton2.Checked then
edit1.Enabled := True;
edit2.Enabled := True;
end;

6. Yang keenam double klik timmernya lalu masukan kode:

if processExists('zonksel\openvpn.exe')= False then
begin
proxyhost := edit1.text;
proxyport := edit2.text;
server_vpn := edit3.text;
port_vpn := edit4.text;
user_vpn := edit5.text;
pass_vpn := edit6.text;
zonksel1 := ' --client --dev tun --proto tcp-client --remote '+server_vpn+' '+port_vpn+' --resolv-retry infinite --nobind';
zonksel2 := ' --ca ca.crt --cert cert.crt --key key.key --persist-key --persist-tun';
zonksel3 := ' --auth-user-pass '+user_vpn+' '+pass_vpn+' --comp-lzo --verb 3 --cipher AES-128-CBC';
zonksel4 := ' --fast-io --pull --route-delay 2 --redirect-gateway --push "route 0.0.0.0.0.0.0.0 255.255.255.0"';
zonksel5 := ' --http-proxy '+proxyhost+' '+proxyport+'';
if RadioButton1.Checked then
begin
DosCommand1.CommandLine := 'zonksel\openvpn.exe' +zonksel1+zonksel2+zonksel3+zonksel4;
end
else
if RadioButton2.Checked then
begin
DosCommand1.CommandLine := 'zonksel\openvpn.exe' +zonksel1+zonksel2+zonksel3+zonksel4+zonksel5;
end;
DosCommand1.Execute;
DosCommand1.OutputLines := Memo1.Lines;
Timer1.Enabled:= True;
end;

7. Yang ketujuh double klik RadioButton1 atau bisa via tab event on click masukan kode:

edit1.Enabled := False;
edit2.Enabled := False;

8. yang kedelapan double klik RadioButton2 atau bisa via tab event on click masukan kode:

edit.Enabled := True;
edit2.Enabled := True;

Dan selesai dan dibawah ini adalah contoh penampakan yang sudah saya buat dan sudah siap digunakan,, dan karena coding di postingan ini masih dalam tahap perkembangan jadi sewaktu waktu halaman postingan ini akan di edit kembali dan sudah pasti.

Untuk Autoreconnect otomatisnya silahkan Lihat DISINI, untuk folder zonkselnya silahkan download DISINI ,Dan hanya itu Saja informasi seputar Cara Membuat Tunnel Open VPN Sendiri Dengan Delphi 7 Terbaru 2015 semoga bermanfaat dan membantu terima kasih.

Jika Sahabat kesulitan membuatnya silahkan lihat; Video Tutorial Cara Buat Tunnel Open VPN Sendiri Lengkap 2015