Showing posts with label delphi. Show all posts
Showing posts with label delphi. Show all posts
Wednesday, December 28, 2016
Cara Membuat Form2 Selalu Mengikuti Form1 di Delphi 7
Cara Membuat Form2 Selalu Mengikuti Form1 di Delphi 7
Senin, O5 September 2016 - www.indoblog.me Ok guys Selamat malam dan selamat jumpa kembali dengan admin "capsa" Pada kesempatan ini masih membahas seputar tentang basis basis delphi dan langsung saja disimak Tips Cara Membuat Form2 Selalu Mengikuti Form1 di Delphi 7 atau istilahnya adalah move form2 to form1 atau ketika kita menggeserkan form1 maka secara otomatis form2 ini akan mengikuti form 1 yang dimana contoh ini juga yang bisa anda temukan pada program virtual header edition pada bagian log trafficnya dan ketika tools dipindahkan maka form2 juga akan mengikuti.
Lihat Juga: Cara Bikin Tool Tembak Paket XL dan Axis Terbaru 2016
Dan selain itu juga tutorial ini juga sekaligus memberikan gambaran tentang show hide form2 dan yang dimana konsep visible show hide ini bisa anda lakukan dengan beberapa cara bisa dengan function, procedure, bisa dengan berbagai cara dan disini admin akan berikan gambaran move form2 sekaligus show hide form2 di delphi dan silahkan langsung disimak yah.
1. Pada tahap dan langkah pertama silahkan buka delphi anda lalu untuk menambahkan form2 silahkan klik icon panah seperti pada gambar dibawah ini, kemudian tambahkan 1 buah timer dan tambahkan juga 1 buah button untuk show hide form 2,nya tersebut.
2. Kemudian selanjutnya silahkan set atau atur timernya Enabled:=true; dan atur intervalnya interval:=100; lihat contoh gambar kemudian silahkan onclick timernya dan masukan coding dibawah ini:
Form2.top := Form1.top;
Form2.left := Form1.left + Form1.width;
3. Kemudian untuk selanjutnya silahkan onclick button1 dan silahkan masukan coding dibawah ini:
if Button1.Caption = Show then begin
Form2.Show;
Button1.Caption := Hide;
end else begin
Form2.hide;
Button1.Caption := Show;
end;
4. Kemudian setelah beres silahkan RUN atau F9 dan silahkan dicoba di show hide dan coba geser geser saja form1 tersebut maka secara otomatis form2 akan selalu mengikuti form1 tersebut dan silahkan dipraktekan.
Dan itulah tutorial dasar pascal/delphi kali ini semoga bisa menjadi panduan dasar dasar bagi anda untuk menjadi programer handal dikemudian hari dan bagi yang kesulitan membuatnya bisa anda unduh contoh source code nya DISINI untuk passrarnya silahkan copy saja URL lengkap dari postingan ini saja, Thanks.
Lihat Juga: Kumpulan Koleksi Daftar Payload Inject Indy 9 dan Indy 10 Terbaru 2016
Itulah dia tutorial dasar Delphi kali ini seputar dengan Cara Membuat Form2 Selalu Mengikuti Form1 di Delphi 7 Terbaru 2016 semoga bermanfaat dan membantu dan atas kunjungan dari saudara admin mengucapkan terima kasih, Wassalam.
Go to link Download
Sunday, December 25, 2016
Cara Membuat Tool Tembak Paket XL dan Axis Dengan Delphi Terbaru 2016
Cara Membuat Tool Tembak Paket XL dan Axis Dengan Delphi Terbaru 2016
Minggu, 04 September 2016 - www.indoblog.me Ok Guys Tidak perlu basa basi lagi silahkan disimak Trik Cara Membuat Tool Tembak Paket XL dan Axis Dengan Delphi Terbaru 2016 yang mungkin anda butuhkan untuk membeli paket paket internet xl dan agar menjadi unlimited dan no fup tentunya dan harap menjadi catatan bahwa tutorial ini hanya sebagai bahan pelajaran saja dan tidak ada niat untuk merugikan pihak operator xl maka dengan begitu jika ada pihak yang merasa dirugikan dengan adanya artikel ini, tetapi sudah sepantasnya para enginering eh maksudnya para karyawan operator xl harusnya sudah mengetahui bug pada system mereka sehingga hal ini bisa dimanfaatkan oleh sebagian orang sebagai alternatif mendapatkan kuota yang melimpah.
Trik tool tembak paket internet ini dibuat dengan tujuan yaitu agar paket internet yang anda beli bisa saling bertubrukan dan hasilnya nantinya akan menjadi error, sehingga dengan begitu maka anda akan mendapatkan kuota internet yang melimpah bahkan bisa digunakan sebagai akses internet secara gratis, tentunya.
Info Lainnya: Cara Membuat Traffic Graph Digital Upload Download Dengan Bantuan Delphi 2016
Program ini hanyalah dasarnya saja karena harus atau perlu dikembangkan lagi jika ingin mendapatkan hasil yang maksimal dan berikut adalah tips cara membuat tools tembak paket axis dan xl, dan untuk tools tembak paket indosatooredoo dan telkomsel via my telkomsel semoga secepatnya sudah bisa kami update maklumlah karena kami hanya punya 2 tangan saja jadi tidak bisa buru-buru :D
1. Pada langkah pertama silahkan buka delphi anda lalu tambahkan 5 Button, 2 Combobox, 2 Edit, dan 1 Webbrowser dan atur tata letaknya kira-kira seperti pada gambar dibawah ini:
2. Yang kedua kemudian silahkan double klik/onclick Form1 lalu masukan coding dibawah ini:
WebBrowser1.HandleNeeded;
WebBrowser1.Silent := True;
3. Yang ketiga lalu double klik button 1 lalu tambahkan coding dibawah ini:
WebBrowser1.Navigate(http://my.xl.co.id/login);
4. Yang keempat lalu kemudian silahkan klik button 2 lalu silahkan anda tambahkan coding dibawah ini:
WebBrowser1.Navigate(http://my.xl.co.id/password/forgot);
5. Yang kelima kemudian lalu silahkan klik button 3 dan silahkan inputkan coding dibawah ini:
WebBrowser1.Navigate(http://my.xl.co.id/4gquotainfo);
6. Yang keenam kemudian silahkan double klik Button 4 lalu silahkan sahabat masukan coding dibawah ini:
WebBrowser1.Navigate(http://my.xl.co.id/balance);
7. Yang ketujuh lalu kemudian silahkan sahabat klik button 5 lalu silahkan masukan coding dibawah ini:
if ComboBox1.Text = Pilih Paket 1 then exit;
if ComboBox2.Text = Pilih Paket 2 then exit;
if ComboBox1.Text = Bronet 1hr,Rp 1.500 then begin
WebBrowser1.Navigate(http://my.xl.co.id/package/process/buy/ref/Link_Paket_Aktif_Anda);
Sleep(StrToInt(Edit1.Text));
end;
if ComboBox1.Text = Bronet 7hr,Rp 6.900 then begin
WebBrowser1.Navigate(http://my.xl.co.id/package/process/buy/ref/Link_Paket_Aktif_Anda);
Sleep(StrToInt(Edit1.Text));
end;
if ComboBox1.Text = Bronet 30hr,Rp 14.900 then begin
WebBrowser1.Navigate(http://my.xl.co.id/package/process/buy/ref/Link_Paket_Aktif_Anda);
Sleep(StrToInt(Edit1.Text));
end;
if ComboBox1.Text = Bronet 60hr,Rp 24.900 then begin
WebBrowser1.Navigate(http://my.xl.co.id/package/process/buy/ref/Link_Paket_Aktif_Anda);
Sleep(StrToInt(Edit1.Text));
end;
if ComboBox2.Text = Gaul 1hr, Rp 1.500 then begin
WebBrowser1.Navigate(http://my.xl.co.id/package/process/buy/ref/Link_Paket_Aktif_Anda);
Sleep(StrToInt(Edit2.Text));
end;
if ComboBox2.Text = Gaul 7hr, Rp 9.900 then begin
WebBrowser1.Navigate(http://my.xl.co.id/package/process/buy/ref/Link_Paket_Aktif_Anda);
Sleep(StrToInt(Edit2.Text));
end;
if ComboBox2.Text = Gaul 30hr, Rp 34.900 then begin
WebBrowser1.Navigate(http://my.xl.co.id/package/process/buy/ref/Link_Paket_Aktif_Anda);
Sleep(StrToInt(Edit2.Text));
end;
8. Yang kedelapan lalu silahkan ganti semua caption pada button dan samakan dengan gambar dibawah ini, dan ganti juga semua text pada combobox dan edit dan samakan seperti pada gambar dibawah ini:
9. Yang kesembilan kemudian silahkan beralih pada combobox1 > items lalu masukan list dibawah ini, (contoh lihat gambar);
Bronet 1hr,Rp 1.500
Bronet 7hr,Rp 6.900
Bronet 30hr,Rp 14.900
Bronet 60hr,Rp 24.900
10. Yang kesepuluh lalu silahkan beralih pada combobox2 > items > lalu masukan list pembeliannya dibawah ini, (lihat contoh gambar);
Gaul 1hr, Rp 1.500
Gaul 7hr, Rp 9.900
Gaul 30hr, Rp 34.900
11. Yang terakhir kemudian silahkan klik RUN atau F9 dan semoga tidak ada yang error, dan setelah digunakan maka hasilnya akan terlihat kira-kira seperti pada gambar dibawah ini:
12. Yang terakhir adalah setiap "Link_Paket_Aktif_Anda" perhatikan tulisan tersebut itu adalah kuncinya dan untuk mengetahui link paket tersebut anda bisa mencarinya via view source web browser, atau jika anda sudah tahu silahkan tinggal masukan kesana saja dan jika masih bingung cara mencari link script aktif punya anda mudah-mudahan nanti bisa di bagikan infonya dan dengan acuan tersebut harusnya anda sudah paham dan bisa anda lakukan dengan main CTRL+F, CTRL+C, CTRL+U.
Lihat Juga: Cara Mudah Bikin Form2 Mengikuti Form1 Ketika Di Move Dengan Delphi
Ok Sob mungkin itu saja dulu ya info Terbaik pada malam ini semoga trik Cara Membuat Tool Tembak Paket XL dan Axis Dengan Delphi Terbaru 2016 tersebut bermanfaat untuk sahabat semuanya dan selamat malam dan selamat berakhir pekan, untuk source code diatas silahkan anda unduh DISINI dan untuk passrarnya silahkan kontak admin di facebook saja.
Go to link Download
Saturday, December 17, 2016
Cara Membuat Injek Sendiri Dengan Delphi 7 Random Host Injector
Cara Membuat Injek Sendiri Dengan Delphi 7 Random Host Injector
Sabtu, 1 Oktober 2016 - www.indoblog.me Apa itu Random Host Injector? Pertanyaan yang bagus, lah yang nanya itu admin sendiri :D Silahkan Disimak Tips Cara Membuat Injek Sendiri Dengan Delphi 7 Terbaru 2016 yang dimana Random Host Injector adalah sebuah cara agar list host yang dimasukan ke listing tidak perlu kita inputkan dan cek secara satu-satu bahkan anda bisa cek kumpulan bug server tanpa perlu cek satu-satu bahkan anda bisa cek hingga ribuan dan tak terbatas jumlahnya.
Konsep pembuatan random injector ini belum pernah ada yang bahas, bahkan admin menyarankan pengembangan http injector untuk menggunakan modul ini, untuk random host injector ini juga sebenarnya pernah admin bahas hanya saja kita membuatnya berdasarkan jumlah timer yang kita gunakan maka misal kita menggunakan 10 timer maka maksimum pengecekannya adalah 10 bug host maka jika anda kebetulan membaca tutorial ini sangat beruntung sekali, karena list host yang anda cek tidak akan ada batasan dan ditutorial ini kita hanya cukup menggunakan 1 timer.
Saya jamin tutorial random injector ini belum pernah ada yang bahas, kalaupun nanti ada yang bahas kemungkinan tutorialnya ngambil dari website cara apa saja ini, :D , awalnya admin ragu membagikan trik random host ini karena jujur konsep ini yang selama ini admin gunakan untuk cek bug server.
Baca Juga: Cara Membuat Save Config Registry Windows Dengan Delphi 7
Tetapi jika tutorial ini bermanfaat, silahkan anda bagikan ke teman-teman anda, share ke facebook, twitter, instagram, whatsapp, bbm, googleplus, agar bisa dipelajari secara bersama-sama, sebenarnya admin juga bingung kalau bikin tutorial delphi karena sebenarnya tutorial-tutorial delphi sudah banyak dibahas di tahun-tahun sebelumnya.
Tapi admin pastikan tutorial random hos injector ini baru pertama kali admin bahas dan bahkan belum ada 1 forum dan blogpun yang membahasnya, semoga anda semakin sakti dalam mengembangkan lsiting coding dasarnya yang akan dibahas dibawah ini:
Oh iya dan adminpun akan berikan contoh payload terbarunya, tetapi harap diingat untuk payloadnya silahkan anda kembangkan lagi, atau bisa anda edit atau tambahkan sesuai dengan kebutuhan dan admin hanya bisa memberikan modul dasarnya jika ingin payload terbaru work berdasarkan isp masing-masing semisal payload telkomsel, payload indosat, payload xl, payload axis, payload three silahkan gabung saja di grup facebook.
Berikut adalah tutorial dasar cara membuat inject random host dengan bantuan delphi 7 dan untuk delphi XE tinggal konversi string saja, silahkan langsung disimak.
1. Pada tahap pertama silahkan buka Dephi 7 anda, kemudian anda membutuhkan 1 Listbox, 2 Button, 1 IdMappedPortTCP, 1 Timer, dan 1 Opendialog dan untuk letak letak komponen tersebut admin asumsikan anda mengetahuinya karena pada standart delphi semua komponen tersebut harusnya ada, beberapa parameter komponen tersebut harus anda setting seperti dibawah ini:
Button1 Captionnya ganti menjadi = Start
Button1 Enabled dari True ganti menjadi = false;
Button1 Enabled dari True ganti menjadi = false;
Button2 Captionnya ganti menjadi = Add List
Timer1 Enabled dari True ganti menjadi = False
Timer1 intervalnya dari 1000 ganti menjadi = 5000
OpenDialog1 filternya masukan data ini = Text Files|*.txt
OpenDialog1 DefaultEXT masukan data ini = Text Files|*.txt
Dan untuk nama-nama komponennya itu sendiri biarkan default saja, atau jika anda sudah memahami penerapannya silahkan anda gonta-ganti juga tidak apa-apa tetapi jika anda belum paham silahkan ikuti panduan ini saja.
2. Yang kedua kemudian pada variable form utama silahkan masukan coding dibawah ini, atau anda bisa perhatikan gambar sebagai contoh penempatannya.
ListHost, IndexHost, BacaHost: Integer;
Bug: string;
3. Lalu kemudian yang ketiga kita akan menambahkan fungsi baru terutama ini untuk fungsi header baru, letakan coding dibawah ini tepat dibawah {$R *.dfm} contohnya bisa anda lihat digambar saja.
function AddHeader(Payload, Header:string):string;
begin
Payload:= StringReplace(Payload, #13#10 + #13#10, #13#10 + Header + #13#10 + #13#10, [rfReplaceAll]);
Result:= Payload;
end;
4. Lalu yang keempat silahkan masuk dan beralih pada Button1 > Object Inspector > Events > OnClick atau double klik button1 saja, lalu masukan coding dibawah ini, contoh perhatikan gambar saja;
if Button1.Caption = Start then begin
Button1.Caption := Stop;
with IdMappedPortTCP1.Bindings.Add do begin
IP:=127.0.0.1;
Port:=strtoint(9201);
end;
IdMappedPortTCP1.MappedHost:=10.1.89.130;
IdMappedPortTCP1.MappedPort:=StrToInt(8000);
IdMappedPortTCP1.Active:=true;
Timer1.Enabled:=True;
end else
begin
IdMappedPortTCP1.Active:=false;
IdMappedPortTCP1.Bindings.Clear;
Timer1.Enabled:=False;
Button1.Caption := Start;
end;
Penjelasan singkat diatas;
Port:=strtoint(9201); 9201 adalah listen on portnya dan silahkan ganti dan sesuaikan saja dengan listen port yang anda inginkan.
IdMappedPortTCP1.MappedHost:=10.1.89.130;
IdMappedPortTCP1.MappedPort:=StrToInt(8000);
10.1.89.130 dan 8000 adalah proxy default dari Telkomsel dan silahkan anda ganti dengan proxy server dari isp yang anda gunakan.
StrToInt = String To Integer, anda juga bisa menggantinya dengan mode trim misal StrToInt(Trim(8000)); atau anda juga bisa menggantinya dengan mode Squid Proxy contohnya StrToIntDef(8000,80); atau anda juga bisa menggabungkan antara mode squid dengan mode trim contohnya menjadi StrToIntDef(Trim(8000),80);
5. Kemudian yang kelima silahkan beralih ke IdMappedPortTCP1 > Object Inspector > Events > OnExecute > IdMappedPortTCP1Execute lalu masukan kode dibawah ini contohnya bisa anda perhatikan gambar saja, dan untuk payloadnya sendiri silahkan dikembangkan lagi, apakah mau menggunakan mode front, back, middle, disable, dan untuk penambahan request header atau parameter payload lainnya silahkan dikembangkan lagi admin hanya bisa memberikan yang standarnya saja..
var
payload: string;
begin
If (Pos(CONNECT, Athread.NetData) = 1) then begin
If Payload <> then begin
Athread.OutboundClient.Write(Payload);
Sleep (500);
Payload:=;
end else
if (Pos(CONNECT,Athread.NetData) > -1) then begin
Payload:=GET http://+Bug+/favicon.ico HTTP/1.1#13#10Host: +Bug+#13#10Referer: http://+Bug+/#13#10#13#10;
AddHeader(AThread.NetData,Proxy-Connection: Keep-Alive);
AThread.NetData := payload +
AThread.NetData;
end;
end;
6. Yang keenam lalu silahkan masuk ke IdMappedPortTCP1 > Object Inspector > Events > OnExecute > OnOutBoundData > IdMappedPortTCP1OutboundData , lalu masukan kode dibawah ini:
AThread.NetData := StringReplace(AThread.NetData,HTTP/1.0,HTTP/1.1 200 OK,[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,HTTP/1.1,HTTP/1.1 200 OK,[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,HTTP/2.0,HTTP/1.1 200 OK,[rfReplaceAll]);
if (Pos(HTTP/1.1 200,AThread.NetData)<>0) then begin
Timer1.Enabled:=False;
end;
Penjelasan singkat diatas:
Diatas mode replace menggunakan universal replace, untuk mode replace silahkan anda ubah dengan mode replace keinginan anda, tetapi jika anda ingin menerapkan konsep diatas tidak ada-apa karena setiap ada kesalahan pasti akan direplace, dan untuk timer = false yaitu ketika koneksi 200 OK maka list index dari lisbok akan dihentikan, jadi ketika bug tersambung maka timer akan terhenti dan pengecekan bug server akan terhenti secara otomatis.
7. Yang ketujuh kemudian silahkan masuk ke Button2 > Object Inspector > Events > OnClick atau double klik button2 saja, lalu masukan kode dibawah ini, contohnya bisa lihat gambar saja, contohnya ini untuk load list tetapi anda juga bisa menggunakan modul popupmenu yang seperti pada VHE X6 menggunakan popupmenu untuk import list hostnya nanti kita bahas karena jika dicampur adukan lumayan panjang.
var
i : integer;
begin
If OpenDialog1.Execute then
begin
for i:=0 to OpenDialog1.Files.Count-1 do
Listbox1.Items.LoadFromFile(OpenDialog1.FileName);
Listbox1.ItemIndex := 0;
Button1.Enabled:=True;
Button1.Enabled:=True;
end;
8. Kemudian yang kedelapan masuk ke komponen Listbox1 > Object Inspector > Events > OnDbClick > ListBox1DblClick , lalu masukan code dibawah ini, contohnya perhatikan gambar saja.
BacaHost:=listbox1.itemindex;
Bug:=listbox1.Items.Strings[BacaHost];
9. Kemudian yang kesembilan dan terakhir beralih ke Timer1 > Object Inspector > Events > OnTimer, atau double klik timernya lalu masukan kode dibawah ini, contohnya bisa sahabat perhatikan gambar saja.
var
FileHost , ListHost :integer;
begin
FileHost:=listbox1.Items.Count;
if FileHost=0 then
for ListHost := 0 to listbox1.items.Count - 1 do begin
ListBox1.ItemIndex := ListHost;
Application.ProcessMessages;
exit;
end else
begin
if IndexHost=FileHost then begin
IndexHost:=0;
listbox1.ItemIndex:=0;
end else
begin
IndexHost:=IndexHost+1;
listbox1.ItemIndex:=IndexHost;
end;
listbox1.ItemIndex:=BacaHost+1;
BacaHost:=listbox1.itemindex;
Bug:=listbox1.Items.Strings[BacaHost];
end;
10. Yang terakhir silahkan build project anda dan setelah digunakan maka kira-kira contohnya seperti digambar ini, dan dalam pengecekan ini tidak terbatas jumlahnya dan untuk mengatur kecepatan index setiap hostnya anda atur saja pada nilai interval timernya yang saya suruh ganti dengan 5000 tadi.
Ok contoh diatas adalah contoh jadinya dari "Random Host Injector" yang kebetulan pengujiannya saya menggunakan CMD Bitvise yang tutorial pembuatan tunnel bisa anda baca di Cara Membuat Tunnel SSH CMD Bitvise Auto Reconnecting silahkan dibaca baca disana.
Baca Juga: Cara Membuat Alat dan Tools Bug Host Checker Terbaru 2016 Dengan Delphi
Ok Guys Sekian Tips dan Trik Cara Membuat Injek Sendiri Dengan Delphi 7 Terbaru 2016 semoga bermanfaat dan membantu dan jika bermanfaat silahkan share ke teman-teman dan saudara-saudara anda yang membutuhkannya, Wassalam.
Go to link Download
Friday, December 16, 2016
Cara Membuat Aplikasi Run As Administrator Dengan Delphi
Cara Membuat Aplikasi Run As Administrator Dengan Delphi
04 September 2016 - www.indoblog.me Silahkan langsung saja disimak tips Cara Membuat Aplikasi Run As Administrator Menggunakan Delphi Terbaru 2016 dan yang dimana tips ini pernah saya bahas pada beberapa tahun kebelakang tetapi dihalaman tersebut coding dasarnya masih mentah dan masih berbentuk listing dan pada kesempatan kali ini admin mau kasih yang mudahnya saja agar bisa langsung diparkatekan.
Baca Juga: Cara Membuat Inject Internet Gratis Terbaru 2016
Ada beberapa hal yang harus diperhatikan mungkin aplikasi yang akan anda gunakan membutuhkan hak akses administrator, atau jika anda sebelumnya punya source code program delphi dan ingin dipasang agar bisa dijalankan dengan administrator maka anda bisa mencoba tutorial ini.
1. Pada langkah pertama silahkan download dan unduh dulu 3 file compiler untuk run as administratornya DISINI kemudian dari ketiga file tersebut silahkan anda taruh pada program delphi yang anda buat atau anda sejajarkan 1 file dengan Delphi Project (.dpr), kemudian silahkan buka project anda lalu masuk pada view unit lalu setelah code {$R *.res} tambahkan code {$R RequestAdmin.res} bisa anda perhatikan gambar dibawah ini, kemudian run dan silahkan cek harusnya program anda sudah jalan via run as administrator.
2. Bagi anda yang yang ingin membuat file res sendiri simple dan mudah anda bisa menggunakan "reseource editor" yang bisa anda unduh secara gratis DISINI dan untuk membuat file res sendiri dengan cmd memang agak ribet maka dari itu admin kasih yang simple-simple saja.
3. Dan bagi anda yang ingin source code project delphi dengan run as administrator dan tinggal anda melanjutkan coding tersebut silahkan bisa anda unduh dan download dan dapatkan secara gratis DISINI dan silahkan coding tersebut anda lanjutkan.
Baca Juga: Cara Membuat Tool Inject Agar Tidak Bisa Digunakan Oleh Sembarangan IP SSH dan VPN
Ok Hanya itu saja dulu tutorial singkat dan simple kali ini dengan Cara Membuat Aplikasi Run As Administrator Dengan Delphi terbaru 2016 semoga bermanfaat dan membantu dan terima kasih wassalam dan selamat berakhir pekan.
Go to link Download
Friday, December 2, 2016
Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016
Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016
Sabtu 03 September 2016 - www.indoblog.me Ok Bray langsung saja disimak Tips atau Tutorial Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016 sebenarnya tutorial ini juga bukanlah tutorial baru karena dari tahun tahun sebelumnya juga pernah di bagikan dan disini admin akan coba ulas kembali hanya untuk sekedar mengingatkan saja.
Ok program anti sniffer atau anti bongkar program yang kita buat dan dengan menerapkan tekhnik ini maka akan sedikit memberikan tingkat keamanan yang lebih baik terhadap project yang kita buat dan tidak mudah berpindah tangan ke tangan programmer lainnya yang hanya sekedar mengedit-edit dan bumm program milik kita sudah menjadi atas nama milik orang lain maka setidaknya dengan melakukan hal ini akan lebih memproteksi program yang kita buat lebih baik lagi.
Lihat Juga: Cara Buat dan Bikin Inject Internet Gratis Terbaru All Operator Terbaru 2016
Ok bagi sahabat sahabat delphier silahkan langsung saja dibuka program delphi anda delphi 7/indy9 dan silakan langsung dipraktekan.
1. Tambahkan 2 buah Timer ada di palette system lalu Timer 1 ubah propertiesnya seperti pada gambar dibawah ini:
Enabled:= True;
Interval:=10;
2. Lalu lanjut ke timer 2 lalu ubah propertiesnya seperti pada gambar dibawah ini:
Enabled:=False;
Interval:=1000;
3. Kemudian diatas implementation lalu silahkan masukan coding dibawah ini:
sniffer: TStringlist;
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall;
procedure GetProcessList;
4. Kemudian lalu dibawah {$R *.dfm} silahkan tambahkan coding dibawah ini:
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool;
var
Title, ClassName: array[0..255] of Char;
begin
GetWindowText(hWnd, Title, 255);
GetClassName(hWnd, ClassName, 255);
if IsWindowVisible(hWnd) then
sniffer.Add(string(Title));
end;
procedure GetProcessList;
begin
EnumWindows(@EnumWindowsProc, 0);
end;
5. Kemudian pada Form Create atau double klik form kosong dan masukan coding dibawah ini:
sniffer:= TStringList.Create;
6. Kemudian lalu silahkan double klik Timer 1 lalu masukan coding dibawah ini:
var i: Integer;
d: Integer;
list: TStringList;
begin
list:= TStringList.Create;
list.Text:= smartsniff+#13#10+ollydbg+#13#10+dump+#13#10+wireshark+#13#10+
wincap+#13#10+popcap+#13#10+unpacker+#13#10+unupx+#13#10+cheat engine+#13#10+
dede+#13#10+ce portable+#13#10+package sniffing;
list.Text:= StringReplace(list.Text,|,#13#10,[rfReplaceAll]);
try
sniffer.Clear;
GetProcessList;
for i:= 0 to sniffer.Count -1 do begin
for d:= 0 to list.Count - 1 do begin
if Pos(list[d],LowerCase(sniffer[i])) <> 0
then
Timer2.Enabled := True; //Perintah Untuk Mengaktifkan Timer2
end;
end;
finally
list.Free;
end;
7. Kemudian yang terakhir silahkan double klik Timer 2 lalu masukan coding dibawah ini:
Form1.Visible := False;
Timer1.Enabled := False;
Timer2.Enabled := False;
Application.MessageBox(Kamu Suka Ngintip Ya :D, Warning ...!!!, MB_ICONWARNING); //Pesan yang akan keluar.
Application.Terminate; //Untuk Perintah Menutup Program Saja
// winexec(shutdown -s -t 1 -f,sw_normal); //Untuk Perintah Melakukan Shutdown
// winexec(shutdown -r -t 1 -f,sw_normal); //Untuk Perintah Melakukan Restart
8. Jika sudah beres silahkan RUN atau tekan f9 apakah ada yang error atau tidak lalu Perhatikan baris perintah ini:
Application.Terminate; silahkan anda bisa hapus dan ganti dengan winexec(shutdown -s -t 1 -f,sw_normal); jika anda ingin membuatnya langsung shutdown dan atau bisa diganti dengan yang winexec(shutdown -r -t 1 -f,sw_normal); jika anda ingin membuatnya restart.
Lihat Juga Bos: Cara Buat Injek Rolling Otomatis Paling Mantap Terbaru 2016
Dan untuk contoh source code jadinya silahkan download DISINI dan untuk passrarnya silahkan Copy Paste url lengkap postingan atau artikel ini saja dan sekian Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016 semoga bermanfaat dan membantu dan wassalam.
Go to link Download
Thursday, December 1, 2016
Cara Membuat Dan Memproteksi Injek Dengan Form Login di Delphi
Cara Membuat Dan Memproteksi Injek Dengan Form Login di Delphi
Minggu, 04 September 2016 - www.indoblog.me Hallo guys kali ini mimin masih membahas seputar dengan keamanan injek internet gratis dan langsung saja disimak tips sederhana tentang Cara Membuat Dan Memproteksi Inject Dengan Form Login di Delphi mudah cepat dan praktis.
Untuk beberapa tutorial sebelumnya juga sudah dishare dengan trik trik keamanan injek injek internet gratis dan langsung saja disimak informasi tentang cara menggunakan form login di delphi untuk memproteksi injek internet gratis.
Baca Juga: Cara Buat Inject Lock By IP SSH VPN Terbaru 2016
1. Pada langkah pertama silahkan tambahkan 2 groupbox atau anda juga bisa menggunakan panel disini admin coba pakai groupbox saja lalu tambahkan 1 edit dan 1 button dan taruh di groupbox1 lihat contoh pada gambar.
2. Lalu double klik button yang terdapat digroupbox1 lalu masukan coding dibawah ini, jangan lupa www.indoblog.me ganti dengan nama user anda.
if Edit1.Text <> www.indoblog.me then
begin
Application.MessageBox(User Salah Bray,Gagal Login,
MB_ICONERROR);
Edit1.Clear;
Exit;
end;
Application.MessageBox(User Benar Bray+#13+
Happy Googling Bray,Berhasil Login,
MB_ICONINFORMATION);
GroupBox1.Visible := False;
GroupBox2.Visible := True;
3. Yang ketiga lalu beralih ke object inspector > form1 > events > onactivate dan masukan coding ini:
GroupBox2.Visible := False;
4. Terakhir silahkan di F9 atau di run dan coba lihat hasilnya apakah sudah berhasil dan sudah bisa dipahami cara kerjanya dan bagi anda yang membutuhkan contoh source codenya silahkan comot DISINI passrarnya pakai URL postingan artikel ini saja ya bray, dan tinggal anda kembangkan saja :D
Nah bagaimana apakah anda sudah paham sekarang dan yang dimana injek injek model ini juga yang sering diprivasi penggunaannya disini hanya kepenggunaannya saja tetapi jika isi payloadnya tetap saja masih bisa diintip dan sniffer ya bray.
Tips Lainnya: Cara Mudah Membuat Traffic Graph Download dan Trapik Upload Dengan Delphi
Ok bray hanya itu saja dulu yah info singkat kali ini dengan Cara Membuat Dan Memproteksi Inject Dengan Form Login di Delphi terbaru 2016 semoga bermanfaat dan membantu dan terima kasih dan happy coding dan wassalam.
Go to link Download
Friday, November 18, 2016
Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE
Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE
Jumat, 30 September 2016 - www.indoblog.me Tutorial ini merupakan tutorial Dasar Pemograman Delphi Tentang Implementasi Save, Edit, Delete dan Replace string di Registry Editor System Operasi Wndows dan silahkan langsung disimak tips Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE dan untuk delphi XE sendiri ada perbedaan dengn delphi 7 dan hanya saja pada tutorial ini admin akan bahas tentang dengan delphi 7 saja.
Mungkin anda pernah membuat file save dan edit maupun delete dengan inifiles, tapi tahukah bahwa regenerasi inifiles adalah registry dan dari hasil uji berapa spek yang digunakan oleh registry dan inifiles memang secara signifikan memiliki perbedaan bahkan dengan penggunaan registry lebih hemat ram komputer kita ketimbang menggunakan type inifiles.
Baca Juga: Cara Membaca Registry Public Key Pada Tunnel SSH Bitvise
Pada tutorial ini admin tidak membuat file registry windows pada form yang benar-benar kosong karena kebetulan admin menambahkan konsep ini pada sebuah software dan program yang sudah jadi yaitu pada sebuah tunneling ssh (bitvise) tapi saya asumsikan anda telah menambahkan 7 edit dan 1 buah combobox pada form delphi anda, oh iya konsep ini tidak harus selalu diterapkan pada aplikasi yang mengharuskan installer system/windows, karena contoh tutorial ini diterapkan pada aplikasi portable.
1. Biasa Buka bahasa program delphi anda lalu Pada langkah pertama silahkan tambahkan dulu uses Registry perhatikan tulisan Registry pada gambar dibawah ini;
2. Kemudian tambahkan kode Reg : Tregistry; diatas public declarations , contohnya bisa sahabat perhatikan gambar bawah saja.
3. Langkah selanjutnya pada form create atau klik saja form utamanya kemudian masukan kode dibawah ini, tujuan dari form oncreate adalah ketika form di create maka file registry akan dibaca.
procedure TForm1.FormCreate(Sender: TObject);
var Value:string;
begin
Reg := Tregistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Value:=SoftwareTwitty ClientServer;
try
try
Reg.OpenKey(Value, false);
Edit1.text :=Reg.ReadString(Host);
Edit2.text :=Reg.ReadString(Port);
Edit3.text :=Reg.ReadString(Username);
Edit4.text :=Reg.ReadString(Password);
except on ERegistryException do
ShowMessage(Server Read Error !);
end;
finally
Reg.CloseKey;
end;
Value:=SoftwareTwitty ClientProxy Settings;
try
try
Reg.OpenKey(Value, false);
Edit5.text :=Reg.ReadString(Server);
Edit6.text :=Reg.ReadString(Port);
ComboBox1.text :=Reg.ReadString(Proxy Type);
except on ERegistryException do
ShowMessage(Proxy Read Error !);
end;
finally
Reg.CloseKey;
end;
end;
4. Yang keempat lalu silahkan klik Button1 atau button yang terpisah atau button tunggal agar terlihat jelas hasilnya, lalu masukan kode dibawah ini, yang dibawah ini fungsinya sebagai writenya atau menulis kode ulangnya atau replace kode/config sebelumnya;
procedure TForm1.Button2Click(Sender: TObject);
var Value:string;
begin
Value:=SoftwareTwitty ClientServer;
try
Reg.OpenKey(Value,true);
Reg.WriteString(Host,Edit1.text);
Reg.WriteString(Port,Edit2.Text);
Reg.WriteString(Username,Edit3.text);
Reg.WriteString(Password,Edit4.Text);
finally
Reg.CloseKey;
end;
Value:=SoftwareTwitty ClientProxy Settings;
try
Reg.OpenKey(Value,true);
Reg.WriteString(Server,Edit5.text);
Reg.WriteString(Port,Edit6.Text);
Reg.WriteString(Proxy Type,ComboBox1.text);
finally
Reg.CloseKey;
end;
MessageDlg(Config Save Success !, mtInformation,[mbOk], 0);
end;
5. Kemudian silahkan run hasilnya, kemudian silahkan coba masuk ke RUN > WINDOWS > ketik REGEDIT lalu masuk ke HKEY_CURRENT_USER > SoftwareTwitty Client maka hasilnya akan nampak seperti pada gambar dibawah ini;
6. Penjelasan tambahan; Twitty Client bisa anda ganti dengan nama aplikasi yang anda miliki dan nama Server dan Proxy Settings bisa anda ganti juga sesuai dengan nama directory yang ingin dan akan anda buat, dan yang terpenting read writenya sama saja dan silahkan dipelajari kembali, jika anda kendala silahkan ditanyakan saja. :D
Oh iya jika kebetulan anda menambahkan komponen checkbox dan radiobutton silahkan gunakan readbool/writebool saja bukan readstring/writestring karena komponen tersebut bukan bertype string simplenya begitu saja.
Oh iya jika kebetulan anda menambahkan komponen checkbox dan radiobutton silahkan gunakan readbool/writebool saja bukan readstring/writestring karena komponen tersebut bukan bertype string simplenya begitu saja.
Lihat Juga: Cara Buat Inject Internet Gratis Terbaru 2016
Ok guys sekian tutorial Singkat kali ini Tentang Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE Terbaru 2016 semoga bisa menjadi anda sebagai calon programmer handal dan berguna bagi orang lain, Wassalam.
Go to link Download
Sunday, November 13, 2016
Cara Membuat Traffic Graph Digital Upload dan Download Pada Injek Delphi
Cara Membuat Traffic Graph Digital Upload dan Download Pada Injek Delphi
Ahad, 04 September 2016 - www.indoblog.me Ok bray langsung saja disimak tips dan informasi dengan Cara Membuat Traffic Graph Digital Upload dan Download Pada Injek Delphi yang dimana tips ini juga pernah kami share di tahun tahun sebelumnya dan silahkan langsung disimak tips dan serta informasi ini.
Semoga dengan adanya tutorial tutorial sederhana ini dan tutorial simple ini bisa menjadikan anda ahli programmer yang handal untuk selanjutnya dan semoga anda menyukai bahasa program delphi walupun jenis bahasa program itu sendiri banyak ragamnya dan dengan adanya pelajaran pelajaran sederhana ini bisa membuat anda lebih berwawasan luas tentang bagaimana sebuah software dan program dibuat.
Baca Juga: Cara Mengunci Aplikasi Injek Delphi Agar Tidak Di Curi Orang Lain
Tutorial ini ditujukan untuk pelajaran semata dan semoga bisa diimplementasikan kembali menjadi lebih baik lagi dan silahkan disimak, oh iya dan jangan lupa sebelumnya delphi anda harus sudah terinstal Komponen TMS Instrumentation Workshop anda bisa cari digoogle atau di kolom pencarian pada blog cara apa saja ini diatas, silahkan.
1. Setelah komponen TMS sudah anda instal silahkan buka delphi anda lalu silahkan anda tambahkan: VrScope1, VrScale1, IdMappedPortTCP1, Timer1, VrNum1, VrNum2, lihat gambar, untuk vrscale pada bagian orientation silahkan ubah menjadi onvertical.
2. Kemudian diatas implementation silahkan tambahkan coding dibawah ini, dan silahkan lihat gambarnya:
upload: Integer;
download: Integer;
3. Kemudian pada timer silahkan double klik dan masukan coding dibawah ini, perhatikan gambar saja.
VrNum1.Value := upload;
VrNum2.Value := download;
VrScope1.SetData(1,StrToInt(FormatFloat(0,upload/1024)));
VrScope1.SetData(0,StrToInt(FormatFloat(0,download/1024)));
upload:= 0;
download:= 0;
4. Selanjutnya pada onexecute dan onoutboundata milik IdMappedPortTCP1 silahkan masukan coding dibawah ini, perhatikan gambar saja.
IdMappedPortTCP1 > onExecute masukan coding ini:
upload:= upload+Length(AThread.NetData);
//Disini Tempatnya Payload atau Request Header
IdMappedPortTCP1 > OutboundData masukan coding ini:
download:= download+Length(AThread.NetData);
//Disini Tempatenya Replace atau Respone Header
5. Yang terakhir silahkan dicoba di run atau tekan f9 apakah sudah berhasil dibuat , kalau masih kesulitan silahkan langsung saja bisa sahabat download contoh source codenya DISINI untuk password ekstrak rarnya adalah URL dari postingan ini saja dan silahkan diuwik-uwik kembali yah :D
Lihat Juga: Aplikasi Untuk Nembak Paket Internet XL dan Axis Terbaru 2016
Ok guys dan hanya itu saja dulu ya informasi dengan Cara Membuat Traffic Graph Digital Upload dan Download Pada Injek Delphi paling terbaru ditahun 2016 ini dan semoga bermanfaat dan membantu dan terima kasih banyak dan selamat berakhir pekan, Wassalam.
Go to link Download
Subscribe to:
Posts (Atom)