Post Game

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.

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.

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.

06 September 2016 - www.indoblog.me 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.

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.

27 September 2016 - www.indoblog.me Okelah pada tutorial ini yaitu sekedar untuk melanjutkan dari postingan yang sebelumnya yaitu Tentang AVD dan silahkan disimak Tips Cara Membuat Android Virtual Device (AVD) Integrasi Ke Delphi XE Terbaru 2016, untuk emulator android sendiri banyak sekali ragamnya semisal dengan bantuan eclipse, tetapi AVD yang dibahas disini tidaklah lain yang bertujuan untuk AVD Pemograman Delphi.

Dan ketika kita membuat aplikasi android dan dari hasil tersebut ingin kita lihat hasilnya maka diharuskan kita untuk menggunakan Emulator atau alat uji dari aplikasi yang sedang kita buat tersebut, oleh karena itu maka bisa dipastikan sebelum aplikasi tersebut kita bagikan secara publik maka kita bisa menguji dulu hasilnya seperti apa.

Emulator maupun Android Virtual Devices yang dibahas disini tidaklah single bentuk emulatornya seperti emulator milik bluestacks yang desain dan tata letaknya tidak bisa kita ubah lagi, nah emulator yang dibahas disini adalah emulator yang bentuk dari tampilan, screen, tombol dll bisa kita ubah sesuai perangkat yang kita inginkan.

Jadi spesifikasi emulator yang kita inginkan bisa kita buat sendiri menyesuaikan dengan android yang kita inginkan karena emulator yang dibahas disini adalah emulator untuk pengembangan aplikasi android untuk bahasa program delphi, tetapi secara defaultnya emulator ini juga bisa anda gunakan untuk keperluan yang lainnya atau sekedar untuk menguji file apk lainnya.

Karena tutorial ini lebih ditujukan untuk pembelajaran bahasa program delphi maka silahkan langsung disimak tips membuat dan mengintegrasikan AVD Manager ke Embarcadero RAD Studio 10 Seattle atau Delphi XE yang lainnya, jika anda telah menginstal bahasa program delphinya maka silahkan langsung saja masuk ke Start Menu > All Programs >  Embarcadero RAD Studio 10 Seattle > Android SDKs > Android Tools, maka akan tampil AVD Manager kira-kira seperti pada gambar dibawah ini:

Untuk android sdk managernya pastikan pada menu TOOLS yang terdiri dari "android sdk tools" , "android sdk platform tools", "android sdk build tools" dari ketiga tersebut sudah anda instal dan untuk yang android sdk build tools silahkan sesuaikan saja mau pilih yang revisi berapa, kemudian lanjut ke gambar bawah.

Kemudian anda silahkan pilih versi api berapa yang akan digunakan misalkan disini saya menggunakan yang versi Android 7.0 (API24) dan yang terpenting adalah SDK Platform anda instal dan kemudian pilih saja salah satu system android yang akan anda gunakan sebagai emulatornya dan tidak perlu mengikuti gambar diatas saja yang hampir semuanya diinstal, kemudian disini kita akan mencoba yang ARM EABIv7a System Image sebagai acuan emulatornya atau sebagai system emulatornya nanti, sebelum ke emulatornya silahkan perhatikan lagi ke gambar bawah.

Pada gambar diatas adalah bagian extras, pada bagian tersebut anda tidak harus menginstal semuanya karena harus disesuaikan dengan keperluan dan kebetuhan saja, misalkan anda ingin mengunggah file apk hasil buatan anda ke "Google Play Store" maka sudah pasti anda harus menginstal google play service dan yang memang pendukung yang lainnya yang integrasinya yang memang dibutuhkan.

Nah sejauh ini maka anda sudah paham betul tentang pemahaman input data yang dibutuhkan dan diperlukan pada "Android SDK Manager", nah dan untuk tutorial membuat emulatornya silahkan baca di halaman Belajar Cara Membuat Emulator Android Terbaru 2016 karena tutorial pada halaman ini bersambung kesana.

Ok sekian Tips dan tutorial singkat kali ini Tentang Cara Membuat Android Virtual Device (AVD) Integrasi Ke Delphi XE Terbaru 2016 semoga apa yang sudah disampaikan bisa bermanfaat untuk anda semuanya dan atas kunjungannya kami ucapkan terima kasih, Wassalam.