Minggu, 14 Desember 2014

Tutorial Membuat Inject Multi

Halo kawan2, jmp lg dgn ' The Nubitol '
Kali ini kita akan membuat injek multi



bgmn kelanjutanya, yuk. tarik mang...

buka dl D7 nya,. trs buka project yg krmn aja biar cpt

kita tmbh kan :

1 groupbox
3 radiobutton

kl sdh, lsng ke bagian execute aja

if rb1.Checked=True then begin
If Pos('HTTP', Athread.NetData) <>0 then
begin
athread.NetData := athread.NetData+'METODE http://BUG/ HTTP/1.1'#13#10'connection: keep-Alive'#13#10'Host: BUG'#10#10#10;
end;
end;

if rb2.Checked=True then begin
If Pos('HTTP', Athread.NetData) <>0 then
begin
athread.NetData := athread.NetData+'METODE http://BUG/ HTTP/1.1'#13#10'connection: keep-Alive'#13#10'Host: BUG'#10#10#10;
end;
end;

if rb2.Checked=True then begin
If Pos('HTTP', Athread.NetData) <>0 then
begin
athread.NetData := athread.NetData+'METODE http://BUG/ HTTP/1.1'#13#10'connection: keep-Alive'#13#10'Host: BUG'#10#10#10;
end;
end;

sdh, gampang bukan,.

o ya,. kl mau dengan combobox ,tggl set aja begini

if sComboBox1.Text='Kampret 1' then begin
If Pos('HTTP', Athread.NetData) <>0 then
begin
athread.NetData := athread.NetData+'METODE http://BUG/ HTTP/1.1'#13#10'connection: keep-Alive'#13#10'Host: BUG'#10#10#10;
end;
end;

if sComboBox1.Text='Kampret 2' then begin
If Pos('HTTP', Athread.NetData) <>0 then
begin
athread.NetData := athread.NetData+'METODE http://BUG/ HTTP/1.1'#13#10'connection: keep-Alive'#13#10'Host: BUG'#10#10#10;
end;
end;

if sComboBox1.Text='Kampret 3' then begin
If Pos('HTTP', Athread.NetData) <>0 then
begin
athread.NetData := athread.NetData+'METODE http://BUG/ HTTP/1.1'#13#10'connection: keep-Alive'#13#10'Host: BUG'#10#10#10;
end;
end;

bgmn, mudah bukan,.
Demikian Tutorial kali ini,.
JANGAN lupa di SUBSCRIBE ya ,.

Sampai jmp di kesempatan lainya,.

Cheerrrsssssssss................



Download Inject Multi



Diposting oleh di

4 komentar:

  1. Unknown15 Desember 2014 pukul 01.40

    gan..ane mw nanya gan..
    cara bikin PLINK agar auto Reconnect gan ,.itu gmn gan...

    BalasHapus
  2. Unknown21 Desember 2014 pukul 09.14

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

    BalasHapus
  3. Unknown27 Januari 2015 pukul 13.41

    gan minta tutor agar plink bisa auto reconect!!!!!!

    BalasHapus
  4. Anonim25 April 2015 pukul 14.11

    thank min tutor nya ..
    klo pengen all operator gimana min , ane bingung di button yg host operatornya .. mohon pencerahannya min , terima kasih sebelumnya ..

    BalasHapus

Langganan: Posting Komentar (Atom)