Cara Instal Komponen MIGR Magenta Systems di Delphi 7 Terbaru

Kali ini Saya mau berbagi Tips seputar Cara Instal Komponen Baru MIGR Magenta Systems di Delphi 7 Terbaru 2015 ini adalah salah satu komponen delphi yang tidak ada didalam bawaan borland delphi 7 walaupun delphi sudah banyak yang versi terbaru tapi saya masih senang dan suka memakai yang versi 7 ini, lah buat apa kita pakai yang delphi terbaru yang lama saja kita belum paham benar gak,, he he komponen yang akan dishare disini ada hubungannya dengan Properties Uncheck Dagu atau Default Gateway, IP Header Compression, Disable Netbios, DNS Tunnel, Upgrade QOS, Auto Reconnect, dan untuk upgrade qos tidak saya sertakan disini karena ada komponen tambahannya yang harus anda instal jadi lain kali akan dibahas,, jadi mudah-mudahan anda paham maksud saya dan sebelumnya juga saya sudah share seputar Kumpulan Bug Telkomsel 2015  ok ok jadi bagi anda yang ingin membuat uncheck dagu dan yang sejenisnya yang berhubungan yang pernah anda lihat di mdma dilaler milik anda saya berikan spesial buat anda, jujur saja cara buat properties secara terpisah Uncheck Dagu atau Default Gateway, IP Header Compression, Disable Netbios, DNS Tunnel, Upgrade QOS, Auto Reconnect belum ada yang bahas di google ada juga yang share source code delphi 7 buat mdma kebanyakan properties ini tidak ada, karena memang pada dasarnya ilmu itu mahal,, he he tetapi selama ilmu itu bermanfaat gak papa pasti saya kasih gratis saja, kebetulan project ini saya tambahkan buat tools yang lagi mau ditambahin komponen ini.

Artikel yang ada hubungan dengan postingan ini sudah selesai dibuat silahkan baca di Cara Buat Uncheck Dagu IP header Compression Disable Netbios DNS Auto Dial Reconnect With Delphi 7 Terbaru 2015

1. Pertama kebetualan saya punya project yang belum jadi seperti gambar dibawah ini, eh yang ada digambar dibawah itu sudah jadi dan sudah saya test malahan lagi sedang saya pakai, jadi yang saya kotakin itu parameternya nanti.

2. Langkah yang kedua silahkan download dulu komponennya MIGR atau Magenta systems DISINI silahkan anda ekstrak beberapa file dcu sudah saya perbaiki karena ada file yang suka debug waktu di rebuild, saya sarankan simpan di directory C kebetulan yang saya ada di D kenapa harus di C biar anda nantinya gak bingung kalau bisa gabung dengan folder komponen komponen yang lainnya, jika sudah silahkan cari magras70.dpk klik kanan dan buka pilih Compile dulu setelah di compile baru anda klik instal, tulisan instal yang digambar hilang karena sebelumnya delphi saya sudah terinstal komponen tersebut, jika sudah silahkan cari tulisan file (kiri pojok atas) lalu pilih close all. (jangan ditutp delphinya)

3. Yang ketiga kita akan patch dulu komponennya yaitu pilih tools, saya yakin anda pasti paham dengan gambar dibawah ini;  atau pilih TOOLS > ENVIRONMENT OPTIONS > LIBRARY > LIBRARY PATCH > Cari file migr / magenta systems tadi kalau sudah ketemu silahkan klik ok saja. setelah ini anda bisa close aplikasi delphinya.

4. Untuk menjaga dan memastikan suatu saat nanti ada beberapa file DCU dari magenta error dan corupt silahkan anda buka lagi file magenta/migr yang sudah anda download tadi silahkan copy paste semua file dcu , lihat ujung filenya ada tulisan xxxx.dcu itu maksudnya, sebenarnya cara ini gak perlu dilakukan karena diatas anda telah patch komponennya tetapi biar lebih ok saja anda bisa melakukan cara ini juga.

5. Yang kelima file dcu diatas anda harus pindahkan atau copas ke installer utama delphi yang ada di c program file > Borland > Delphi 7 > Lib, jadi file tadi anda copikan ke lib tersebut lihat aja di dalam lib tersebut pasti banyak file dcu bawaan delphi 7 anda.

6. Yang terakhir untuk memastikan migr/magenta sudah terinstal dengan baik dan benar anda bisa cek di parlette delphi anda lihat gambar dibawah ini, pastikan komponen tersebut seperti kaya gambar dibawah ini, kalau anda sudah terbiasa instal instal komponen baru di delphi pasti sangat mudah ko gak perlu ngikutin panduan ini, karena panduan ini buat bagi yang mau lagi belajar saja,, he he

Ya udah Cuman itu saja Postingan kali ini seputar Cara Instal Komponen MIGR Magenta Systems di Delphi 7 Terbaru 2015 semoga bermanfaat dan membantu dan selamat menjelang bulan suci ramdhan 1436 H, By " Moeslem Power" :)

Cara Buat Uncheck Dagu IP header Disable Netbios DNS Auto Dial With Delphi 7

Kali ini saya mau bahas Cara Buat Uncheck Dagu IP header Compression Disable Netbios DNS Auto Dial Reconnect With Delphi 7 Terbaru 2015 , tutorial ini adalah kelanjutan dari tutorial yang pernah saya bahas yang lalu tutorial ini saya sengaja buat tunggal tanpa dialer atau mdma biar anda dan sahabat semuanya lebih mudah memahaminya, program ini akan jalan ketika modem atau dialer anda dijalankan bukan terpacu pada tombolnya yang saya sertakan pada gambar di bawah saya sertakan tombol start dan stop untuk menutup tampilan pada masing masing komponen tersebut jadi ketika tombol start dijalankan maka pilihan tersebut tidak bisa diedit lagi karena programnya sedang jalan dan tombol stop untuk menampilkan kembali pilihannya agar bisa diatur lagi, saya sertakan tombolnya karena saya yakin anda menjalankan program dialer atau mdma pasti menggunakan tombol/button jadi silahkan implementasikan pasti anda tahu jawabnnya, dan mari kita langsung praktek.

1. Langkah pertama silahkan buka delphi anda atau anda bisa buka project anda yang sudah jadi yang mau ditambahin opsi ini tutorial ini membutuhkan komponen Migr yang sudah saya bahas DISINI dan siapkan CheckBox (5) edit (2) MagRasEdt (1) Button  (2) anda bisa menggunakan komponen dari alpha control biar kerenan dikit, gambar dibawah ini tombol 2 lupa blum saya masukin pas di ss, oh iya untuk komponen MagRasEdt ada di palette magenta systems setiap komponen yang baru anda instal umumnya berada di palette paling ujung silahkan cari ya.

2. Yang kedua silahkan ganti dulu nama-namanya seperti dibawah ini, kalau anda mau settingan tersebut yang anda gunakan misal biar kesimpan anda harus menambahkan komponen Open dialog tetapi tidak akan dibahas dulu disini karena nantinya malah jadi bingung, yang penting properties ini sudah bisa anda coba dan gunakan.

3. Yang ketiga Tambahkan coding dibawah ini:

    procedure SaveProperties ;
    procedure GetProperties ;

Pasang diatas Private lihat gambar dibawah lalu tekan CTRL + SHIFT + C perhatikan tanda panahnya jika menekannya anda benar maka akan muncul procedure yang saya kasih anak panah dibawahnya.

4. Yang keempat Lalu masukan kode dibawah ini pada masing masing GetProperties dan SaveProperties lihat contoh gambar dibawah:

Pasang di GetProperties;
with MagRasEdt1 do begin
bRemoteDefaultGateway := CheckBox1.Checked;
bHeaderCompression := CheckBox2.Checked;
bDisableNbtOverIP := CheckBox3.Checked;
bReconnectIfDropped := CheckBox4.Checked;
bSpecificNameServers := CheckBox5.Checked;
DNSAddress := Edit1.Text;
DNSAddressAlt := Edit2.Text;

Pasang di SaveProperties;
with MagRasEdt1 do begin
CheckBox1.Checked := bRemoteDefaultGateway;
CheckBox2.Checked := bDisableNbtOverIP;
CheckBox3.Checked := bHeaderCompression;
CheckBox4.Checked := bReconnectIfDropped;
CheckBox5.Checked := bSpecificNameServers;
Edit1.Text := DNSAddress;
Edit2.Text := DNSAddressAlt;

5. Yang kelima silahkan klik Button 1 lalu tambahkan kode;

SaveProperties ;
GetProperties ;
CheckBox1.enabled := false;
CheckBox2.enabled := false;
CheckBox3.enabled := false;
CheckBox4.enabled := false;
CheckBox5.enabled := false;
Edit1.enabled := false;
Edit2.enabled := false;
end;

6. Yang keenam Lalu klik Button 2 atau stop lalu tambahkan kode:

CheckBox1.enabled := true;
CheckBox2.enabled := true;
CheckBox3.enabled := true;
CheckBox4.enabled := true;
CheckBox5.enabled := true;
Edit1.enabled := true;
Edit2.enabled := true;
end;

7. Yang ke 7 silahkan build projectnya, lalu silahkan test hasil projectnya, project ini akan berfungsi jika anda mengaktifkan modem anda saja, jadi project ini akan otomatis berfungsi jika projectnya mengenali dialer modem anda aktif, semoga anda paham maksud saya.. he he

Silahkan agan agan yang cantik dan ganteng silahkan kembangkan lagi code code diatas dan untuk memastikan berhasil tidaknya silahkan cek kembali di properties modem asli anda yang ada pc netbook laptop komputer agan ,Dan cukup sudah hanya itu saja sob info seputar Cara Buat Uncheck Dagu IP header Disable Netbios DNS Auto Dial With Delphi 7 Paling Terbaru 2015 semoga bermanfaat dan bisa membantu saudara dan selamat menunggu bulan suci ramadhan.

Baca Juga; Panduan Dasar Step By Step Buat Payload Internet Gratis 2015

Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru

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.

Cara Menginstall Komponen Di Delphi 7 Terbaru

Artikel ini diambil dari blog mastah riezal yang situsnya sudah bertahun-tahun expired dan artikelnya sudah tidak diindeks google lagi disini saya hanya menyelamatkan artikel-artikelnya yang mungkin sobat phreaker ada yang membutuhkannya. 

Assalamualaikum.Wr.Wb Jumpa lagi dengan saya selaku admin INDOBLOG kali ini saya akan menjelaskan secara rinci, bagaimana cara install komponen. Secara umum menginstall komponen Delphi itu mudah dan cara menginstall nya juga hampir sama untuk semua komponen Delphi, tapi masih banyak saja yang masih mencari cari cara untuk menginstall komponen A komponen B dll.

Baiklah simak baik-baik yah :

1. Extrack Komponen jika masih berbentuk ZIP/RAR. 

2. File >> Open (Kemudian Buka komponen Package nya).

3. Maka nanti akan muncul menu seperti ini :

Klik Compile (Untuk memasikan tidak ada file dari komponen yang error).

4. Klik Install jika *Compile menyatakan tidak ada yang error.

5. Done.

Nah berikut Cara install jika komponennya berformat *.pas atau *.dcu :

1. Klik menu Component >> Install Component...

2. Pada Unit file name klik "Browse".Cari kemudian buka komponen tersebut.

3. Nanti akan muncul menu yang sama seperti membuka Delphi Package yang di bahas diatas.

4. Klik Compile (Untuk memasikan tidak ada file dari komponen yang error).

5. Klik Install jika *Compile menyatakan tidak ada yang error.

6. Done.

Nah ini adalah bagian yang mana seriang dilupakan setelah install, jika tidak di terapkan maka percuma saja sudah menginstall komponennya.

1. Klik Tool >> Environment Options...

2. Pilih tab "Library".

3. Pada Library Patch. klik Button "..." kemudian klik lagi button "...".

4. Pilih Folder tempat penyimpanan Komponen. >> OK.

5. Done.

Atau kalau gk mau ribet copy semua isi komponen nya ke folder Lib delphi7 "C:\Program Files\Borland\Delphi7\Lib" .

Gimana Menurut Kalian .. ? ,gk susahkan Install komponen Delphi 7 .

OK Sekian postingan kali ini, semoga ini benar-benar bermanfaat buat kalian yang membaca postingan ini. Terimakasih.

Note: artikel ini sewaktu-waktu akan dihapus jika pemilik aslinya sudah meminta untuk penghapusan artikel di sini.

Cara Membuat Injek Sendiri Dengan Delphi XE Indy 10 Terbaru

Ok sobat Blogger silahkan langsung disimak tips Cara Membuat Injek Sendiri Dengan Delphi XE Indy 10 Terbaru 2016 mungkin tutorial cara bikin dan buat inject dengan delphi 7 bukanlah hal baru lagi karena sudah bejibun yang bahasnya, oke pada kesempatan kali ini mimin akan kasih tips cara buat injector ssh internet gratis dengan delphi XE dan kebetulan admin sendiri menggunakan Delphi XE10 (RAD Studio 10 Seattle).

Yang jadi pertanyaannya apakah payload maupun listing program untuk indy 10 dan indy 10 berbeda ya tentu saja berbeda contohnya adalah payload yang untuk delphi 7 itu termasuk indy 9 okelah biar tidak pada bingung lagi langsung saja dipraktekin, oh iya nanti juga dilain kesempatan waktu saya juga akan shareing tutorial bikin injek versi android (apk file) mungkin anda juga pernah menggunakan aplikasi injek android berbasis apk,, contohnya aplikasi paling hot untuk android adalah HTTP Injector, nah nanti kita akan coba belajar cara membuat injek untuk android, karena selama pantauan admin memang masih jarang ada yang share tentang hal tersebut.

Baca Juga: Cara Buat Ballon Message Minimize To Tray Keren dan Menarik Dengan Delphi

Ok untuk versi indy 10 anda bisa menggunakan versi delphi dibawah XE10 misal menggunakan versi XE8 harap diingat bahwa instalasi delphi XE10 saja bergiga-giga jadi pastikan system operasi anda memadai, terutama ram anda harus minimal 1GB kebetulan PC saya ramnya sudah 8GB okelah langsung simak tutorialnya dibawah ini:

1. Untuk Contoh Payload Delphi XE/Indy10 Buat Telkomsel, XL, Axis, THree , Indosat Silahkan Lihat DISINI , Pastikan anda sudah mengunduh Delphi XE versi berapa saja karena sudah termasuk indy 10 tinggal cari-cari saja di google yah, kemudian silahkan buka dan buatlah sebuah folder kosong di hardisk D atau terserah anda untuk menaruh hasil save asnya nanti, kemudian pilih FILE > NEW > VCL FORM APPLICATION - DELPHI , kalau anda mau membuat aplikasi hp pilih saja yang dibawahnya.

2. Kemudian silahkan tambahkan 1 Button, 1 Edit dan komponen tersebut ada di palette standar karena sama dengan delphi yang versi sebelumnya juga :D

3. Kemudian tambahkan komponen mappedporttcp ada di palette indy server dan masih sama juga seperti di delphi sebelumnya juga.

4. Untuk penulisan kode program simplenya biar tidak ribet dan pusing ke andanya silahkan klik TOGGLE FORM lihat gambar dibawah ini saja.

5. Kemudian silahkan masukan kode dibawah ini tepat dibawah implementation

uses IdCoder, IdCoder3to4, IdCoderMIME, IdGlobal;

6. Kemudian silahkan anda tambahkan kode dibawah ini tepat dibawah {$R *.dfm} kode yang digambar dengan yang diberikan gunakan atau copas saja semuanya yang dibawah karena digambar hanya sebagai contoh saja:

function netstring(B: TIdContext): string;
var S: String;
begin
  S := TIdEncoderMIME.EncodeBytes(TIdMappedPortContext(B).NetData);
  S := TIdDecoderMIME.DecodeString(S);
  Result := S;
end;

function netbyte(S: string): TIdBytes;
var B: TIdBytes;
begin
  S := TIdEncoderMIME.EncodeString(S);
  B := TIdDecoderMIME.DecodeBytes(S);
  Result := B;
end;

function AddHeader(S, Header:string):string;
begin
 S:= StringReplace(S, #13#10 + #13#10, #13#10 + Header + #13#10 + #13#10, [rfReplaceAll]);
 Result:= S;
end;

function Middle(netdata, M:string):string;
begin
 M := StringReplace(netdata,':',M +':',[rfReplaceAll]);
 Result := M;
end;

function Back(netdata, B:string):string;
begin
 B := StringReplace(netdata,' HTTP',B + ' HTTP',[rfReplaceAll]);
 Result := B;
end;

function Front(netdata, F:string):string;
begin
 F := StringReplace(netdata,'CONNECT ','CONNECT '+F,[rfReplaceAll]);
 Result := F;
end;

7. Kemudian silahkan double klik button1 lalu masukan code dibawah ini:

if Button1.Caption = 'Start' then begin

    IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1'; 

    IdMappedPortTCP1.Bindings.Add.Port := StrToInt(Edit1.Text); // Listen On Port

    IdMappedPortTCP1.MappedHost := '10.1.89.130'; // Proxy Server ISP

    IdMappedPortTCP1.MappedPort := 8000; // Proxy Port ISP

    IdMappedPortTCP1.Active := True;

    Button1.Caption := 'Stop';

  end else begin

    IdMappedPortTCP1.Active := False;

    IdMappedPortTCP1.Bindings.Clear;

    Button1.Caption := 'Start';

  end;

8. Kemudian beralih ke mappedporttcp > object inspector > events > onexecute sebenarnya urutan ini sama dengan yang delphi 7 lalu masukan kode dibawah ini, perhatikan baik-baik gambarnya;

var

payload: string;

begin

if (pos('CONNECT',netstring(AContext))<>0) or (pos('HTTP',netstring(AContext))<>0) then

  begin

    payload := 'GET http://my.telkomsel.com/ HTTP/1.1'+#13#10+

           'Host: my.telkomsel.com'+#13#10+

           'X-Forward-Host: today.line.me'+#13#10+

           'Connection: Keep-Alive'+#13#10;

TIdMappedPortContext(AContext).OutboundClient.IOHandler.Write(Netbyte(AddHeader(NetString(AContext),'Proxy-Connection: Keep-Alive')));

TIdMappedPortContext(AContext).NetData := Netbyte(AddHeader(NetString(AContext),'User-Agent: Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0'));

TIdMappedPortContext(AContext).NetData := Netbyte(StringReplace(NetString(AContext),'HTTP','SHTTP/1.0 200 OK',[rfReplaceAll]));

TIdMappedPortContext(AContext).NetData := Netbyte(NetString(AContext) + payload);

  end;

9. Kemudian silahkan masuk ke mappedporttcp > object inspector > events > onoutbounddata lalu masukan kode dibawah ini;

TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'502 Bad Gateway','200 OK',[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'408 Request Time-out','200 OK',[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'404 Not Found','200 OK',[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'403 Forbidden','200 OK',[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'400 Bad Request','200 OK',[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'408 Request Time-out','200 OK',[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'307 Temporary Redirect','200 OK',[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'302 Found','200 OK',[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'302 Moved Temporarily','200 OK',[rfReplaceAll]));

  TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(NetString(AContext),'301 Moved Permanently','200 OK',[rfReplaceAll]));

10. Kemudian silahkan save as atau coba tekan f9 atau tekan RUN bisa anda lihat gambar segitiga hijau klik saja yang itu maka harusnya seperti gambar dibawah ini, oh iya untuk hasil build project anda bisa anda lihat didalam isi folder 32 karena saya instal delphi ini di x86 walaupun system operasi windows saya menggunakan x64 tapi saya instal di x86 buka saja didalamnya harusnya ada file projectnya.

Ok dan jika anda sebelumnya pernah menginstal delphi 7 maka untuk membuka kembali project delphi xe tersebut adalah KLIK KANAN > OPEN WITH > EMBARCADERO RAD STUDIO LAUNCER FOR WINDOWS dan jangan langsung di klik, ok jika anda yang membutuhkan source code pada tutorial ini silahkan bisa anda download secara gratis DISINI dan passrarnya silahkan copas URL dari postingan ini saja.

Lihat Juga: Internet Access With Free Proxy List Server Update September 2016

Ok Guys Itu saja dulu ya info dengan Cara Membuat Injek Sendiri Dengan Delphi XE Indy 10 Terbaru 2016 semoga bermanfaat dan membantu dan terima kasih anda telah bersedia menyempatkan belajar bahasa program delphi, Wassalam.

Cara Membuat Program Pendeteksian Versi Windows Dengan Delphi 7

Ok Sobat blogger dan sobat delphier indonesia berikut adalah Tutorial sederhana Cara Membuat Program Pendeteksian Versi Windows Dengan Delphi 7 sebenarnya cara membaca dan mengethaui serial version os windows itu sangat mudah caranya, tetapi kita sekarang akan mencoba menjelaskan bagaimana kalau pendeteksian tersebut kita implementasikan ke sebuah program dan disini kita akan belajar menggunakan delphi atau pascal dan anda juga bisa menggunakan vb atau visual basic dll hanya saja setiap bahasa program pasti memiliki kekurangan dan keunggulan masing-masing.

Lihat Juga: Cara Membuat SSH Tunneling CMD Bitvise Dengan Delphi 7 Terbaru 2016

Bagi sebagian programmer pemula atau programmer yang baru belajar hal-hal membuat program program sederhana ini memang sangat dibutuhkan sekali terutama bagi anda yang sedang menekuni dunia ini maka anda sudah sepantasnya sudah mengetahui bagaimana konfigurasi membaca registry system windows dengan delphi dan lain sebagainya.

Karena untuk pembuatan program ini adalah menggunakan registry system windows untuk pembacaannya , okelah biar tidak lama lagi silahkan langsung disimak saja tutorial cara membaca version os windows dibawah ini dan silahkan dipraktekan.

1. Pada langkah yang pertama silahkan bukan program delphi anda lalu kemudian silahkan tambahkan 1 buah label untuk pembacaannya.

2. Yang kedua kemudian silahkan tambahkan Uses Registry; dibawah implementation kemudian dibawah {$R *.dfm} tambahkan coding dibawah ini, untuk contohnya bisa sobat perhatikan gambar saja.

function GetWindowsVersion: string;

var

  VerInfo: TOsversionInfo;

  PlatformId, VersionNumber: string;

  Reg: TRegistry;

begin

  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);

  GetVersionEx(VerInfo);

  // Detect platform

  Reg := TRegistry.Create;

  Reg.RootKey := HKEY_LOCAL_MACHINE;

  case VerInfo.dwPlatformId of

        VER_PLATFORM_WIN32s:

          begin

                PlatformId := 'Windows 3.1';

          end;

        VER_PLATFORM_WIN32_WINDOWS:

          begin

                // Registry

                Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', False);

                PlatformId      := Reg.ReadString('ProductName');

                VersionNumber := Reg.ReadString('VersionNumber');

          end;

        VER_PLATFORM_WIN32_NT:

          begin

                Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);

                PlatformId      := Reg.ReadString('ProductName');

                VersionNumber := Reg.ReadString('CurrentVersion');

          end;

  end;

  Reg.Free;

  Result := PlatformId + ' (version ' + VersionNumber + ')';

end;

3. Kemudian yang terakhir double klik Form Kosong atau klik saja formnya lalu masukan coding dibawah ini:

Label1.Caption := 'System: '+GetWindowsVersion;

4. Yang terakhir silahkan tekan F9 atau RUN saja maka kira-kira hasilnya akan nampak seperti dibawah ini, bagaimana mudah bukan?

Ok dan bagi sahabat dan teman-teman semuanya yang kebetulan gagal membuatnya admin juga sudah siapkan contoh source codenya dan silahkan bisa diambil pada link DISINI dan silahkan dimplementasikan lagi mungkin akan anda gunakan dan gabungkan dengan program yang lainnya.

Tutorial Lainnya: Cara Membuat Aplikasi Enscryption Descryption Dengan Borland Delphi

Ok sobat terima kasih sudah membaca tips Cara Membuat Program Pendeteksian Versi Windows Dengan Delphi 7 Terbaru 2016 semoga masih bermanfaat untuk anda dan menjadi pelajaran dasar yang berharga buat anda semuanya terima kasih, Wassalam.

Cara Membuat Pemutar Musik MP3 Player Sendiri Dengan Delphi 7

Kali ini saya mau berbagi seputar Cara Membuat Pemutar Musik MP3 Player Sendiri Dengan Delphi 7 ok sebelum saya mulai ketutorialnya mungkin anda membutuhkan alphaskin terbaru 2015 bisa anda comot dan ambil DISINI oke tanpa panjang lebar lagi untuk membuat musik video player buatan sendiri bisa anda lakukan dibawah ini dan silahkan disimak langsung saja:

Baca Juga: Cara Membuat Payload Injek Bugs All Operator Terbaru 2015

1. Langkah pertama pastinya buka dulu DELPHI anda lalu silahkan sipakan dulu komponennya diantaranya: 1 form, 1 Media player (ada di system), 1 Button (ada di standard), 1 open dialog (ada di dialogs), 1 progres bar (ada di win32), 1 timer (ada di system), 1 xp manifest(ada di win32) kalau sudah siap semuanya langsung meluncur ke nomer 2 dibawah.

2. Langkah kedua klik media playernya pada object inspector > properties perhatikan gambar dibawah ini yang saya kasih garis kotak setingannya samakan saja, true > true > true > true > false > false > true > false > false pasti kelihatan dibawah.

3. Pada langkah yang ketiga silahkan buka open dialognya, buka pada filter seperti gambar dibawah ini samakan saja, file name= MPEG Audio Files, Filter isi= *.wav;*.mp3;*.mid;*.midi;*.wma lalu klik ok.

4. Pada langkah yang keempat silahkan kode Mp3Path: string;  paused: Boolean; samakan saja seperti dibawah saja.

5. Pada langkah yang kelima masukan kode dibawh ini seperti gambar dibawah saja, caranya klik formnya.

paused:=false;
MediaPlayer1.Enabled:=False;
Form1.Height:=150; // silahkan atur secara manual untuk tingginya
Form1.Width:=240; // silahkan atur secara manual untuk tingginya
Form1.Top:=(Screen.Height-Form1.Height)div 2;
Form1.Left:=(Screen.Width-Form1.Width)div 2;
end;

6. Pada langkah yang keenam lalu masukan kode dibawah ini seperti gambar dibawah saja, caranya double klik media playernya di form..

if Button = btStop then
begin
MediaPlayer1.Position:=0;
ProgressBar1.Position:=0;
end
else if Button = btStep then
begin
if ((MediaPlayer1.Position+5000)<=MediaPlayer1.Length) then
MediaPlayer1.Position:=MediaPlayer1.Position+5000
else
begin
MediaPlayer1.Position:=0;
ProgressBar1.Position:=0;
end;
MediaPlayer1.Play;end
else if Button = btBack then
begin
if ((MediaPlayer1.Position-5000)>0) then
MediaPlayer1.Position:=MediaPlayer1.Position-5000
else
MediaPlayer1.Position:=0;
MediaPlayer1.Play;
end;
end;

7. Pada langkah yang ketujuh, masukan kode dibawah ini kaya digambar saja, caranya double klik timernya.

 if MediaPlayer1.Enabled then
begin
ProgressBar1.Position:=MediaPlayer1.Position;
if ProgressBar1.Position=MediaPlayer1.Length then
begin
MediaPlayer1.Stop;
ProgressBar1.Position:=0;
MediaPlayer1.Close;
MediaPlayer1.Enabled:=true;
MediaPlayer1.FileName:=Mp3Path;
MediaPlayer1.Open;
MediaPlayer1.Position:=0;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;
end;
end;

8. Pada langkah yang kedelapan masukan kode dibawah ini kaya gambar dibawah saja, caranya double klik buttonnya.

if OpenDialog1.Execute then
begin
Mp3Path:=OpenDialog1.FileName;
with MediaPlayer1 do
begin
Enabled:=true;
FileName:=Mp3Path;
Open;
Position:=0;
Play;
end;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;
end;

9. Langkah yang kesembilan silahkan klik f9 atau run dulu apakah ada yang error kalau sukses silahkan ganti backgroundnya caranya bisa anda perhatikan kaya gambar dibawah saja.

10. Dan dibawah ini adalah contoh sederhana jadinya dan lumayan cukup ringan sekali gak memakan spek cpu anda.

 Dan cukup hanya itu saja tips seputar Cara Membuat Pemutar Musik MP3 Video Player Sendiri Dengan Delphi 7 semoga bermanfaat dan dapat membantu terima kasih.

Baca Juga Tutorial Delphi lainnya: Cara Membuat Web Browser Sendiri With Delphi 7