Cara memunculkan pesan saat from delphi ditutup (diclose)

Hallo kawan,,

Oke kali ini saya akan menulis tentang cara memunculkan pesan saat project delphi kita tutup,

contoh

Pada gambar diatas saat saya ingin menutup aplikasi maka muncul from baru 

Gimana sih cara buatnya.???

Cara membuatnya sangatlah mudah

• Pertama pada project anda,anda klik from kosongnya satu kali saja,
• lalu klik menu events 
• klik dua kali pada menu onclosequery
• masukan kode berikut ini

 if(application.MessageBox('Yakin Vroh?','WARNING!!!',MB_YesNo)=ID_No) then
    begin
      close;
    end;

ditengah tulisan begin dan end;

contoh

***untuk tulisan biru bisa diganti sesuai keinginan

Sekian dan terimakasih

Cara membuat Inject dua host dengan Combobox dengan delphi7

Hallo semuanya kali ini ane akan share cara membuat inject dua host dengan combobox,

Pertama pastikan alphaskin sudah terinstall di delphi7 sobat,karena kita akan menggunakan combobox dari sana

bagi yang tidak tau maksud dari combobox silahkan lihat ss dibawah

combobox pada inject ini sangat penting jika kita ingin membuat inject dengan dua bug atau lebih,nah untuk itu saya akan mengeshare cara menggunakan combobox ini

pertama klik pada menu alphastandard yang biasanya ada dipaling kanan menu,jika tidak jelas silahkan lihat gambar

setelah itu pergi ke ke onboundExlute diTCP atau kalau nggak tau itu adalah tempat memasukan bug kalian

nah disana kalian masukan kode misalnya tadi menggunakan dua host maka

if sComboBox1.Text ='TSEL 1' then
if (pos ('GET',athread.NetData)<>0) then
Athread.NetData :=aThread.NetData+ 'GETS http://BUGKALIAN/ HTTP/1.1'+#10#13+'Connection: Keep-Alive'+#13#10+'Host : BUGKALIAN'#13#10#13#10#13#10;
if sComboBox1.Text ='TSEL 2' then
if (pos ('GET',athread.NetData)<>0) then
Athread.NetData :=aThread.NetData+ 'GETS http://BUGKaLIAN/ HTTP/1.1'+#10#13+'Connection: Keep-Alive'+#13#10+'Host : BUGKALIAN'#13#10#13#10#13#10;

Intinya kalian hanya perlu menambahkan if sComboBox1.Text ='TSEL 1' then  pada payload onboundexlute kalian
jika tidak paham lihat gambar dibawah

 

Nah langkah selanjutnya kalian kembali pada project yang kalian buat tadi,klik satu kali pada combobox kalian tadi lalu di menu properties kalian cari menu items,
lalu kalian masukan nama yang ada di kode combobox tadi.Saya menggunakan nama TSEL1 pada host pertama dan TSEL 2 pada host kedua
Jika tidak paham silahkan lihat gambar dibawah

Terakhir silahkan dites,jika tidak ada kesalahan silahkan save dan build project anda dan silahkan dicoba dengan ssh ataupun vpn atau dengan trik lainnya

SEKIAN :)

SERTAKAN SUMBERNYA JIKA INGIN DICOPAS!!!!!!!!!!!

Cara Mengatasi D7reg.exe not found / cannot be found

Oke kali ini pada kesempatan ini saya akan mengeshare cara mengatasi pesan Unable to Register Delphi  d7reg.exe Cannot be Found.Kemarin saat saya mau buat inject tiba-tiba delphi7 saya tidak bisa dibuka dan muncul pesan seperti diatas.Saya udah uniinstall tpi hasilnya tetap sama nggak bisa dibuka dan selalu muncul pesan itu,ditengah keputuasaan saya mencoba segala macam cara.Akhirnya saya mendapat hidayah dari Tuhan yang memberi tau saya lewat google bahwa kamu harus mengapus file registry.slm yang terletak didata C:

Cara mencarinya sangat mudah

di data C: kalian Masuk ke C:\Users\nama user PC sobat\.borland lalu hapus file registry.slm

lalu silahkan buka delphi sobat 

SEKIAN :)

Cara memasang dua lampu di inject dengan delphi7

     Oke jumpa lagi diblog sederhana ini.Kali ini saya akan mengeshare cara memasang dua lampu di inject kita dengan delphi7.Sebenar itu bukan lampu hehehe,tapi shape,tapi kita sebagai newbie tentu akan membuat seperti itu dipencarian google,soalnya saya juga gitu pas baru belajar buat inject.

Sebenarnya cukup mudah taapi bisa jadi susah kalau nggak teliti

• Pertama pada inject yang agan buat,kalian masukan dua bua lampu atau shape

• Kemudian di tempat memasukan kode atau perintah kalian cari tulisan private lalu masukan kode berikut diatasnya

    Procedure LedBlinkUpload;

    Procedure LedBlinkDownload;

• lalu kalian cari tulisan var yang berada dibawah lalu masukan kode berikut dibawahnya

  Download : Integer;

  Upload : Integer;

• dibawah tulisan 

implementation

{$R *.dfm}

kalian masukan kode berikut

procedure

TForm1.LedBlinkUpload;

begin

shape1.Refresh;

if shape1.brush.color=clScrollBar

then

begin shape1.brush.color:=cllime;

end else

begin

shape1.brush.color:=clScrollBar;

end;

end;

procedure

TForm1.LedBlinkDownload;

begin

shape2.Refresh;

if shape2.brush.color=Clwhite

then

begin

shape2.brush.color:=clblue;

end else

begin

shape2.brush.color:=Clwhite;

end;

end;

• kemudian kalian cari tulisan seperti ini

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);

itu adalah tempat kalian memasukan bug kalian,nah dibawah tulisan login kalian masukan kode

LedBlinkUpload;

upload:= upload+Length(AThread.NetData);

• lalu kalian cari lagi tulisan seperti ini

procedure TForm1.IdMappedPortTCP1OutboundData(

  AThread: TIdMappedPortThread);

setelah ketemu kalian masukan kode berikut dibawah tulisan login

LedBlinkDownload;

download:= download+Length(AThread.NetData);

terakhir kalian test,setelah itu save dan build project kalian dan silahkan dicoba

terimakasih telah berkunjung

Cara Membuat Form Delphi Menjadi Tranparan / Transparent

Oke kali ini ane akan buat tutol delphi 7 yaitu cara buat from delphi jadi transparent\

contohnya

pertama pada from kosong di properties

agan rubah pada menu color misalnya dipilih warna clGray maka from akan berubah warna

selanjutnya masi di properties dimenu menu transparent color value agan rubah juga warna clGray,,karena diatas kita memilih warna clGray maka dimenu transparent color value juga harus sama

lalu dimenu transparent color diatas menu transparent color value agan rubah False manjadi True

maka mudah-mudahan jika tidak ada kesalahan maka form tidak akan kelihatan atau menjadi transparent..nah setelah itu tinggal agan ucek2 lagi delphinya hehehe

sekian terimakasih,maaf kalau tidak membantu

Cara membuat Inject sederhana dengan delphi 7

oke langsung saja..

HARUS SABAR TELATEN TELITI TEKUN DAN TIDAK SOMBONG

Pertama buka delphi 7 anda.
Ditampilan pertama anda akan melihat from kosong,lalu dimenu standard anda klik tombol button untuk memasang buttonnya

sehingga menjadi

lalu pasang lagi button kedua dengan cara yang sama sehingga menjadi

sekarang rubah nama buttonnya,klik satu kali pada button1 lalu pada properties dimenu caption kalian rubah namanya sesuai dengan keinginan.Saya akan merubah namanya pada button1 menjadi HIDUP dan button2 menjadi MATI

sehingga menjadi

lalu kalian klik dua kali pada button1 tadi sehingga akan terbuka tempat meletakan kode-kodenya
Nah pada button1 kalian masukan kode ini

IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('8080');  ///disini angka 8080 ada listen portnya bisa kalian ganti sesuka hati
IdMappedPortTCP1.MappedHost:='10.1.89.130'; ///disini angka 10.1.89.130 ada proxy operator bisa kalian ganti sesuai dengan operator apa yang ingin kalian coba injectnya
IdMappedPortTCP1.MappedPort:=StrToInt('8000'); ///disini angka 8000 ada port operator bisa kalian ganti sesuai dengan operator apa yang ingin kalian coba injectnya
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=True;

ini adalah daftar proxy dan port operator yang sangat sering digunakan

Telkomsel
proxy                     port
10.1.89.130           8000
Indosat
10.19.19.19           8080
XL
202.152.240.50     8080
THREE 3
10.4.0.10               3128
AXIS
10.8.3.8                 8080

kemudian kalian klik dua kali di button2 tadi,masukan kode ini

IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;

sehingga

lalu kalian masukan TCP terletak dimenu indy servers

klik satu kali di TCP nya lalu menu events klik dua kali menu OnExecute

kemudian diatas tulisan begin kalian letak kode

var
ESIND:string;

setelah itu dibawah tulisan begin kalian letak

ESIND:='GET http://BUGSKAMU/ HTTP/1.1'+#10#13#10#13#10#13+'Connection: Keep-Alive'+#10#13+'Host : BUGSKAMU'#10#13;
if pos('CONNECT',athread.NetData) <>0 then
athread.NetData:=athread.NetData+ESIND;


tulisan BUGSKAMU kalian ganti dengan bug yg kalian ketahui
sehingga

masih dimenu events TCP kalian klik dua kali dimenu ONOUTBOUNDDATA lalu masukan kode

 if (Pos('HTTP', AThread.NetData) <> 0) then
  begin
 AThread.NetData := AThread.NetData;
 AThread.NetData := 'HTTP/1.0 200 Connection established' + #13#13#13 + AThread.NetData;
 AThread.NetData := StringReplace(AThread.NetData,':109',':443',[rfReplaceAll]);

sehingga

terakhir kalian save as dimenu file
lalu kalian buildproject1 di menu project

ingat perhatikan gambar itu baik2,dan liat berapa banyak tulisan end;nya,biasa kita sering salahnya disitu,sehingga project kita error

lalu silahkan coba dengan ssh/openvpn kalian...