Current time: 05-25-2018, 06:24 PM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



[Share] CODING INJEK NEWBIE

10-08-2014 01:20 AM CODING INJEK NEWBIE
#1


ilhamhafidz Away
Baru Belajar
Registered
*

Posts: 7
Joined: Oct 2014

Reputation:

FCoin: 2.00ƒc
Persiapan Belajar :

1. Delphi 7
2.Komponen delphi Indy
3.Komponen delphi AlphaSkin (untuk mempercantik tampilan)
Spoiler :
Sebelum belajar membuat inject sendiri pastikan komponen-komponen ini terinstall di Delphi 7

Komponen utama TCPindy
idMapperdPort


Komponen mempercanti tampilan : sSkinManager dan sSkinProvider
AlphaSkin

Source code yang di pelajari :
------------------------------------------------------------------------------------------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdMappedPortTCP,
StdCtrls,ComCtrls, Winsock, jpeg, ExtCtrls, sSkinProvider, sSkinManager, acPNG,
sMemo, sCheckBox, sButton, IdIPWatch, ShellAPI, sStatusBar, XPMan,
acImage;

type
TForm1 = class(TForm)
btn1: TButton;
edt2: TEdit;
IdMappedPortTCP1: TIdMappedPortTCP;
proxy: TEdit;
port: TEdit;
sSkinManager1: TsSkinManager;
autoroute: TsCheckBox;
IdIPWatch1: TIdIPWatch;
bar: TsStatusBar;
tmr1: TTimer;
sSkinProvider1: TsSkinProvider;
XPManifest1: TXPManifest;
procedure btn1Click(Sender: TObject);
procedure IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
procedure IdMappedPortTCP1OutboundData(AThread: TIdMappedPortThread);
procedure tmr1Timer(Sender: TObject);
private
mulai:Boolean;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{$R 'RequestAdmin.RES'}

procedure TForm1.btn1Click(Sender: TObject);
var
rt: string;
del: string;
begin
rt := '/C route add 10.1.89.130 mask 255.255.255.255 '+IdIPWatch1.LocalIP;
del := '/C route delete 0.0.0.0';
if Mulai then
begin
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
Sleep(100);
btn1.Caption := 'Start';
Mulai := False;
end
else
begin
btn1.Caption := 'Stop';
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt(edt2.Text);
IdMappedPortTCP1.MappedHost := proxy.text;
IdMappedPortTCP1.MappedPort := StrToInt(port.Text);
IdMappedPortTCP1.Active := True;
Mulai := True;
if autoroute.Checked = True then
begin
ShellExecute(0, nil, 'cmd.exe', PChar(rt), nil, SW_HIDE);
ShellExecute(0, nil, 'cmd.exe', PChar(del), nil, SW_HIDE);
end;
end;
end;


procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var
payload:string;
begin
payload:='HEAD http://bug.opsel.com/ HTTP/1.1' + #10#13 + 'Connection: Keep-alive' + #10#13 + 'Host : bug.opsel.com/' +#10#13#10#13#10#13;

if Pos('HTTP',AThread.NetData)<>0 then
AThread.NetData := AThread.NetData+payload+AThread.NetData;
end;

procedure TForm1.IdMappedPortTCP1OutboundData(
AThread: TIdMappedPortThread);
begin
if Pos (' 302 Found', AThread.NetData) <>0 then begin
AThread.NetData := StringReplace(AThread.NetData,' 302 Found',' 200 OK',[rfReplaceAll]);
end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
bar.Panels[0].Text:=IdIPWatch1.LocalIP;
bar.Panels[1].Text:=IdIPWatch1.LocalName;
bar.Panels[2].Text:=TimeToStr(Now);
end;

end.
------------------------------------------------------------------------------------------------------------
10-11-2014 01:53 AM RE: CODING INJEK NEWBIE
#2


student Away
HunteR
HunteR
*

Posts: 65
Joined: Sep 2014

Reputation:

FCoin: 164.18ƒc
min .. ane mau tnya klo buat yang nambain respon download sma upload ,,, komponennya ap ajaj trus codingnya bgaimana ....??
thanks sblumnya ....
10-13-2014 02:20 AM RE: CODING INJEK NEWBIE
#3


Daru Away
HunteR
HunteR
*

Posts: 35
Joined: Mar 2014

Reputation:

FCoin: 2.00ƒc
makasih bro,,
sangat bermanfaat.. ane mau coba belajar dan uwik-uwik, biar mandiri bikin inject. thnks bro
10-13-2014 10:39 PM RE: CODING INJEK NEWBIE
#4


suneo_honekawa Away
FNS MEMBER
FNS Member
**

Posts: 134
Joined: May 2014

Reputation:

FCoin: 5.87ƒc
(10-11-2014 01:53 AM)student Wrote:  min .. ane mau tnya klo buat yang nambain respon download sma upload ,,, komponennya ap ajaj trus codingnya bgaimana ....??
thanks sblumnya ....


Register or Login to see this content

Register or Login to see this content
Register or Login to see this content
Register or Login to see this content

maaf kalo salah
(This post was last modified: 10-13-2014 10:43 PM by suneo_honekawa.)
10-15-2014 11:30 PM RE: CODING INJEK NEWBIE
#5


Ichall99 Away
HunteR
HunteR
*

Posts: 63
Joined: May 2014

Reputation:

FCoin: 2.00ƒc
Maaf kalau salah.. kayaknya Coding Injeck Newbie gak ada SreenShot bentuk injeck nya..
kalau bisa ScreenShot bentuk jadi Injeck nya juga om ilham..
biar tau bentuk jadi nya bagaimana & memudahkan bagi yang belajar..
tapi tetap nice share nya.. topda
11-07-2014 08:55 PM RE: CODING INJEK NEWBIE
#6


petrikalice Away
HunteR
HunteR
*

Posts: 50
Joined: Jun 2014

Reputation:

FCoin: 2.90ƒc
nice share gan
cocok buat ane yang nubie banget pingin belajar bikin sendiri injek
kalau boleh di kasih penjelasan juga gan fungsi2nya biar nubie kaya ane bisa sedikit mengerti
11-08-2014 10:18 AM RE: CODING INJEK NEWBIE
#7


DN13 Away
FNS MEMBER
FNS Member
**

Posts: 147
Joined: Oct 2014

Reputation:

FCoin: 6.68ƒc
Donator (Rank I)
ane baca post diatas punya om ilham

begin
rt := '/C route add 10.1.89.130 mask 255.255.255.255 '+IdIPWatch1.LocalIP;
del := '/C route delete 0.0.0.0';
if Mulai then

susunan proses awalnya di "ROUTE ADD" akhirnya di "ROUTE DELETE"
ane(nubie) artikan bahwa injek tersebut saat jalan tanpa route karena proses akhirnya di DELETE. kalo ane salah tolong penjelasannya om ilham... thks ya om....

deni102014, proud to be a member of ForNesia Family since Oct 2014. dan saya suka Kimcil.
11-21-2014 02:52 AM RE: CODING INJEK NEWBIE
#8


lutfailham96 Away
HunteR
HunteR
*

Posts: 68
Joined: Sep 2014

Reputation:

FCoin: 2.09ƒc
tambahan, hilangin ini: XPManifest1: TXPManifest;
klw pke request admin gk ush pke xp manifest, nanti jdi gk work admin requestnya




Possibly Related Threads...
Thread: Author Last Post
  Coding Menampilkan IP di Project suryadewa 04-28-2016 09:51 PM
Last Post: shenjai47
  [Share] coding untuk mengunci ukuran form delphi jack 05-26-2015 04:24 PM
Last Post: icarusdc

Search thread:


[-]
Advertisement