Membuat SPLASH LOADING Untuk Mempercantik Tool

Halo kawan2 , jmp lagi dgn ' The Nubitol '
Kali ini kita akan membuat  SPLASH LOADING

Buat gaya2an aja di tool nya pas awal di buka,.

bgmn kelanjutanya,,yuk ,..tarik manngg...

sprt biasa,. buka D7 nya dl,.

trs tmbh kan :

Type :

private
   PnlDown: Boolean;
{ Private declarations }

1 panel
1 image
1 timer
1 progresbar, di sini sy makai dr komp tms
1 label

timer1, klik 2x , masukan :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if PnlDown then
  begin
    VrProgressBar1.Position := VrProgressBar1.Position - 5;
  end
  else
  begin
    VrProgressBar1.Position := VrProgressBar1.Position + 5;
  end;

  if VrProgressBar1.Position = 0 then
    PnlDown := False;
end;

procedure TForm1.VrProgressBar1Change(Sender: TObject);
begin
if VrProgressBar1.Position = 50 then
begin
  lblStatus1.Caption := 'Hallo';
end;
if VrProgressBar1.Position = 70 then
begin
  lblStatus1.Caption := 'Apa Kabar';
end;
if VrProgressBar1.Position = 90 then
begin
  lblStatus1.Caption := 'The Nubitol Di Sini';
end;

if VrProgressBar1.Position = 100 then
begin
  Sleep(500);
  sPanel1.Hide;
end;
end;

Kita Tester  :D

Timer kita set dulu

Interval ksh 200 aja

Bgmn , mudah bukan...
smp jumpa di kesempatan lainya,.
jgn lupa di subscribe,.

Cherrrssss.............

Untuk lebih jelas nya,simak video tutorial di bawah ini

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

Menambahkan Inject Di PLINK Delphi 7

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

bgmn kelanjutanya, yuk, tarik manngg..

buka dl Delphi 7 nya , buka sekalian project plink plonk yg kmrn

selanjutnya,...


Yang kita butuhkan cuman :

1. 1 buah TIdMappedPortTCP
2. 2 buah shape

Tambahkan Prosedur LED di atas dl :

Procedure LedBlinkUpload;
Procedure LedBlinkDownload;

prosedur led nya kita psng :

Trs, Di Bawah :

implementation

{$R *.dfm}

Tambahkan :


procedure TForm1.LedBlinkUpload;
begin
shape1.Refresh;

if shape1.brush.color=$00353535 then
begin
  shape1.brush.color:=clLime;
end else
begin
  shape1.brush.color:=$00353535 ;
end;

end;

procedure TForm1.LedBlinkDownload;
begin
shape2.Refresh;

if shape2.brush.color=$00353535  then
begin
  shape2.brush.color:=clRed;
end else
begin
  shape2.brush.color:=$00353535 ;
end;

end;

Skrng, Ke tombol  :

Tombol START / sButton 1 , klik 2x, masukan :

IdMappedPortTCP1.Active := False; // ini kalo lsng di pasang di sini
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt('2222'); //Port Injek
IdMappedPortTCP1.MappedHost := '10.1.89.130'; //Proxy Injek
IdMappedPortTCP1.MappedPort := StrtoInt ('8000'); //Listen Portnya
IdMappedPortTCP1.Active := True;

{IdMappedPortTCP1.Active := False;  // Ini Kalo Mau menambahkan manual isian edit nya di form exe
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt(sEdit2.Text);
IdMappedPortTCP1.MappedHost := sEdit1.Text;
IdMappedPortTCP1.MappedPort := StrtoInt (sEdit2.Text);
IdMappedPortTCP1.Active := True;}

Tombol STOP nya , masukan :

IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;

TIdMappedPortTCP nya , bagian Execute , klik 2x , masukan :

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


Outbound data nya , klik 2x ,masukan :

LedBlinkDownload;
if Pos ('HTTP/1.1 302 Found', AThread.NetData) <> 0 then
begin
AThread.NetData := '';
end;

skrng kita tester yuk.

skrng,kita make cara yg ke 2 td,.

tester juga...
bgmn,mudah bkn,

Demikian tuorial kali ini,.
smp jmp di kesempatan lainya,

jgn lupa ke thenubitol.blogspot.com

Cheerrrsss........................

Untuk Lebih Jelas nya, Simak Video Tutorial di bawah ini

Download PLINK Inject

Tutorial Cara Membuat Simple Tool Wifi Adhoc

Halo Kawan2, jumpa lagi dgn ' The Nubitol '
Kali ini kita akan membuat Adhoc Wifi Connection

apakah adhoc wifi itu ,. Untuk sharing koneksi ke wifi bawaan pc/laptop

Bagaimana Kelanjutanya, yuk..tarik mangggg...

Pertama2 , buka Delphi 7 nya dulu

Sblm nya kita buat output folder nya dulu ya

terus,. Kita masukan :

1. 1 buah sMemo
2. 1 buah sGroupbox
3. 4 buah sButton
4. 2 buah sEdit
5. 1 buah Doscommand

terus,. kita set tombol button nya :

sButton1 = SET SSID
sButton2 = START
sButton3 = CLEAR LOG
sButton4 = CLOSE

sButton1 = SET SSID,  klik 2x , masukan :
var
  DosCommand1 : TDosCommand;
  set : string;
begin
  sMemo1.Clear;
  if sEdit11.GetTextLen < 1 then
  begin
    Application.MessageBox('Isi SSID terlebih dahulu.', 'Error', MB_OK or MB_ICONERROR);
  end
  else if sEdit2.GetTextLen < 8 then
  begin
    Application.MessageBox('Password minimal 8 karakter.', 'Error', MB_OK or MB_ICONERROR);
  end
  else
  begin
    DosCommand1 := TDosCommand.Create(nil);
    set:= 'netsh wlan set hostednetwork ssid='+sEdit1.Text+' key='+sEdit2.Text+' mode=allow';
    DosCommand1.CommandLine := set;
    DosCommand1.OutputLines := log.Lines;
    DosCommand1.Execute;
    beep;
  end;

sButton2 = START  ,klik 2x , masukan :

var
  DosCommand1 : TDosCommand;
  set: string;
begin
  if sButton2.Caption = 'START' then
  begin
    sMemo1.Clear;
    DosCommand1:= TDosCommand.Create(nil);
    set := 'netsh wlan start hostednetwork';
    DosCommand1.CommandLine := set;
    DosCommand1.OutputLines := log.Lines;
    DosCommand1.Execute;
    sButton2.Caption := 'STOP';
    beep;
  end
  else if sButton2.Caption = 'STOP' then
  begin
    sMemo1.Clear;
    DosCommand1 := TDosCommand.Create(nil);
    set := 'netsh wlan stop hostednetwork';
    DosCommand1CommandLine := set;
    DosCommand1.OutputLines := sMemo1.Lines;
    DosCommand1.Execute;
    sButton2.Caption := 'START';
    beep;
  end;

sButton3 = CLEAR LOG , klik 2x, masukan :

log.Clear;

sButton4 = CLOSE, klik 2x, masukan :

Close;

Untuk mempercantik tool, kita ksh alphaskin ya

jangan lupa, form nya di rapikan dulu

Kita ksh nama :

Skrng kita, tester

di sini , saya akan mencotohkan koneksi emnggunakan Tun2Sock

Kita buka dl injeknya

Sekalian Kita set dl SSID nya dan pasword nya

kita tester koneksinya dl,.kalo sudah konek gini,.
baru kita share wifi kita
ke tap t2s nya trs kita share di sana. baru tombol wifi adhoc nya
kita start, biasanya terdetek wireles conect 2

skrng kita share wifi adhoc nya

nah, begitu saja,. wifi share tool kita sdh bisa di nikmati bersama2

Demikian tutorial ala ' The Nubitol '

Jangan lupa mampir ke

thenubitol.blogspot.com

sampai jumpa laen kesempatan,.

Cheerrssssssssss.....................

Untuk Lebih jelasnya, Simak Video Tutorial nya di Bawah ini

Download Wifi Adhoc

Tutorial Cara Membuat Super ROUTE Delphi 7

Halo kawan2, jumpa lagi dgn ' The Nubitol '
Di tutorial kali ini, kita akan membuat  Super ROUTE
Biar kl di tambahkan di project tool semakin joz

Apakah Route itu ? Route adalah ,....

Tanya Mbah Gugel aja dah, lebih pinter ,. wkwkw

Bagaimana Kelanjutanya Yuk, tarik mang...

Pertama2, Buka Delphi 7 nya
File- New - Application

trs kita tambahkan Dulu :

Uses = MMsystem , Winsock
Public declarations = function AddRoute: Boolean;
var = DosCommand1  : TDosCommand;
         Route  :String;

trs ke form nya masukan :

1. 1 Buah Memo
2. 2 Buah Groupbox
3. 2 buah timer
4. 1 doscommand

- Groupbox 1 = Command, kita isi , 1 edit text , edit kita ksh nama = printex
   - 2 buah button, button 1 nama = send, button 2= clear

- Groupbox 2 = Route, kita isi,  1 combobox, 3 buah button, 3 edit
   - combo kita ksh nama = proxy,
     button 3 = add , button 4 = del, button 5 = btngetip    
      edit 1 = getip , edit2 = mask, edit3 = matric

- timer1 kita ksh nama = TimerRefresh
- timer2 kita ksh nama = TimerRoutPrint , enable = false

trs, di bawah :

implementation

{$R *.dfm}

kita masukan dulu =

procedure tahan(Time: integer);
var
  TimeNow: LongInt;
begin
  TimeNow := timeGetTime;
  while (TimeNow + Time) > timeGetTime do
  begin
    Application.ProcessMessages;
  end;
end;

function GetIPAddress(): string;
type
  pu_long = ^u_long;
var
  varTWSAData: TWSAData;
  varPHostEnt: PHostEnt;
  varTInAddr: TInAddr;
  namebuf: array[0..255] of char;
begin
  if WSAStartup($101, varTWSAData) <> 0 then
    Result := ''
  else begin
    gethostname(namebuf, sizeof(namebuf));
    varPHostEnt := gethostbyname(namebuf);
    varTInAddr.S_addr := u_long(pu_long(varPHostEnt^.h_addr_list^)^);
    Result := inet_ntoa(varTInAddr);
  end;
  WSACleanup;
end;

Function TForm1.AddRoute: Boolean;
begin
Application.ProcessMessages;
//getip.Text:= GetIPAddress;
WinExec(PChar('ROUTE DELETE 0.0.0.0'), SW_HIDE);
DosCommand1 := TDosCommand.Create(nil);
Route := 'route add '+ proxy.Text;         // proxy oprator
if mask.Text <> '' then
Route := Route + ' mask ' + mask.Text;
Route := Route + ' ' + GetIPAddress;
if metric.Text <> '' then
Route := Route + ' metric ' + metric.Text;
DosCommand1.CommandLine := Route;
DosCommand1.Execute;
sMemo1.lines.add(Route+#13#10#13#10+'Route Berhasil..!');
end;

terus ke:

- Groupbox1

Button send , klik 2x, masukan :

DosCommand1 := TDosCommand.Create(nil);
route := printex.Text;
DosCommand1.CommandLine := route;
DosCommand1.OutputLines := sMemo1.Lines;
DosCommand1.Execute;
TimerRoutprint.Enabled:= True;

Button clear , klik 2x masukan :

sMemo1.Clear;

- Groupbox2

proxy = items = string , kita isikan =

Telkomsel
XL
Indosat
Axis
Three
Esia/Aha
Smart

button add, klik 2x, masukan :

sMemo1.Lines.Add('Wait...');
tahan(2000);
AddRoute;

button del , klik 2x , masukan :

WinExec(PChar('ROUTE DELETE 0.0.0.0'), SW_HIDE);
sMemo1.Lines.Add('Wait...');
tahan(2000);
sMemo1.Lines.Add('ROUTE DELETE 0.0.0.0 Sukses');

btngetip , klik 2x, masukan :

getip.Text:= GetIPAddress;

mask , isikan = 255.255.255.255
metric, isikan = 1

Timer :

Timer1 = TimerRefresh ,klik 2x , masukan :

Application.ProcessMessages;

Timer2 = TimerRoutPrint, klik 2x , masukan :

 Application.ProcessMessages;
DosCommand1 := TDosCommand.Create(nil);
Route := 'route print';
DosCommand1.CommandLine := Route;
DosCommand1.OutputLines := sMemo1.Lines;
DosCommand1.Execute;
TimerRoutprint.Enabled:= False;

terakir, combobox = proxy , klik 2x, masukan :

if proxy.ItemIndex=0 then
Edit1.Text:='10.1.89.130';
if proxy.ItemIndex=1 then
Edit1.Text:='202.152.240.50';
if proxy.ItemIndex=2 then
Edit1.Text:='10.19.19.19';
if proxy.ItemIndex=3 then
Edit1.Text:='10.8.3.8';
if proxy.ItemIndex=4 then
Edit1.Text:='10.4.0.10';
if proxy.ItemIndex=5 then
Edit1.Text:='10.177.7.7';
if proxy.ItemIndex=6 then
Edit1.Text:='10.17.27.250';

kita tmbh alphaskin dl,biar manis

Kita tester dl...  :D
Ok, Sudah jalan ,... Joz

Bagaimana, Mudah bukan..
Demikian cara tutorial membuat Super ROUTE ala ' The Nubitol '..

Sampai Jumpa di laen kesempatan,.

Cheerrrsss,............................

Download ROUTE

Tutorial Cara Membuat Project Menjadi Installer

Halo kawan2, jumpa lagi dgn ' The Nubitol '
Di tutorial kali ini, kita akan membuat project menjadi instaler

Bgmn kelanjutanya, yuk.. tarik mang....

Di sini ,kita menggunakan inno setup instaler ya..

pertama2 kita buka dl project yg mau di bikin instaler
kita contohkan project PLINK kmrn aja ya

trs kita buka inno setup instaler nya dl

skrng kita coba buka dan instal,.

folder standart sesuai yg kita set td,. yaitu di C:\

Bgmn, mudah bukan,,,,..

Demikian Tutorial kali ini,.
Sampai jumpa di kesempatan lainya by ' The Nubitol '

Cheeerrssss,...........................

Untuk lebih lengkapnya, Silahkan di simak Video Tutorial di bawah ini

Download Inno Setup Instaler

Tutorial Install Component Delphi 7

Halo kawan2, jumpa lagi dgn ' The Nubitol '
Di Tutorial kali ini, kita akan memasang komponent Delphi 7

1. Alphaskin
2. TMS
3. Doscommand
4. Dswin32 ( Untuk Meringankan Pemakaian Memory tool )

Mgkn bagi yg sudah bisa,ini merupakan hal yg gampang.
Tp bagi yg masih pemula, Dengan Tutorial ini
Mudah2an bisa memberikan sedikit manfaat

Bagaimana kelanjutanya, yuk, tarikk mannggg....

Kita buka dulu Delphi 7,.


Selanjutnya ,. langsung lihat gambar saja biar cepat

1. Alphaskin , kita buka yang D7_Run ,kemudian baru yg D7_Design

lsng kita copas kan saja, ke folder boarland\libs

karena sblm nya sdh prnh sy instal,. sy CANCEL
bagi yg blm prnh instal,lsng copas semua saja

2. TMS , sama juga,kita copas kan lsng ke folder boarland\libs
isi dr folder crack nya

Sdh pernah juga,. yg blm prnh instal,lsng copas saja semua

3. Doscommand, tersimpan di Pallete Sample
lsng kita copas jg ke boarland\libs ,. DCU nya

4. Dswin32 , kita copas kan jg ke boarland\libs , DCU nya

Skrng mari kita coba, kita pake project yg PLINK kmrn saja

Kita ksh alphaskin,. sblm nya biar gampang,. isi folder Skin kita
copas kan saja ke C: lsng

Yuk,kita ksh skin
Extended Border  buat bingkainya ,biar tmbh bagus
Anime Effect ,buat nambah semacam berbayang tool kita
HueOffset buat kombinasi warna
lainya bsia di kreasikan sendiri,.yuk kita build

Bagaimana, mudah bukan..
Demikian Tutorial kali ini..
nantikan tutor2 lainya..

Cheerrrrssss..................

Download Component