Berikut adalah Cara Membuat Injek Reset System All Operator Terbaru 2016 Dengan Delphi 7 dan sebelumnya juga admin Cara Apa Saja sudah share dengan Maxidix Proxy Scanner 2016 ok bagi anda yang ingin membuat inject dengan konsep reset bug server berikut adalah kode delphi dasarnya jadi silahkan buka dulu delphi masing masing kalau belum punya bahasa programnya silahkan download dulu DISINI dan admin harap anda mengetahui output stream port forwardingnya atau anda bisa tambahkan project dibawah ini pada project injek yang sudah anda miliki, jika anda menambahkan function ResetBug dibawah ini harap tambahkan paling ujung sebelum end. pada project tersebut, dan jangan langsung di run tetapi harus dibuild secara langsung karena proses ini akan langsung dijalankan oleh system, semoga bisa dipahami.
1. Langkah Pertama Buka Delphi 7 Anda Lalu Silahkan Tambahkan dulu Winsock pada usues kalau sudah ada tidak usah ditambahkan ulang.
2. Yang kedua tambahkan kode dibawah ini setelah kode {$R *.dfm} seperti yang saya bilang jika kode dibawah ini langsung ditambahkan setelah kode {$R *.dfm} karena anda menambahkannya pada project yang sudah ada listingnya maka akan error maka sahabat harus menambahkannya paling ujung sebelum end. semoga bisa dipahami maksudnya.
function ResetBug(const hostName: PAnsiChar; const resource: PAnsiChar; HTTPResponse: TStrings): Boolean;
const
Port: integer = 443;
CRLF = #13#10;
var
WSAData: TWSAData;
Sock: TSocket;
SockAddrIn: TSockAddrIn;
IPAddress: PHostEnt;
bytesIn: integer;
inBuffer: array [0..1023] of char;
Req: string;
begin
Result := False;
HTTPResponse.Clear;
Winsock.WSAStartUp($101, WSAData);
try
Sock := WinSock.Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
try
if (Sock <> INVALID_SOCKET) then
begin
with SockAddrIn do
begin
sin_family := AF_INET;
sin_port := htons(Port);
sin_addr.s_addr := inet_addr(hostName);
end;
if (SockAddrIn.sin_addr.s_addr = INADDR_NONE) then
begin
IPAddress := Winsock.gethostbyname(hostName);
if (IPAddress = nil) then
Exit;
SockAddrIn.sin_addr.s_addr := PLongint(IPAddress^.h_addr_list^)^;
end;
if (Winsock.connect(Sock, SockAddrIn, SizeOf(SockAddrIn)) <> SOCKET_ERROR) then
begin
Req := 'GET '+resource+' HTTP/1.1' + CRLF +
'Host: '+hostName + CRLF +
'Connection: keep-alive' + CRLF +
CRLF;
if (Winsock.send(Sock,Req[1],Length(Req),0) <> SOCKET_ERROR) then
begin
FillChar(inBuffer,SizeOf(inBuffer),#0);
repeat
bytesIn := Winsock.recv(Sock, inBuffer, SizeOf(inBuffer), 0);
HTTPResponse.Text := HTTPResponse.Text + Copy(string(inBuffer),1,bytesIn);
until
(bytesIn <= 0) or (bytesIn = SOCKET_ERROR);
Result := HTTPResponse.Count > 0;
end;
end;
end;
finally
Winsock.closesocket(Sock);
end;
finally
Winsock.WSACleanup;
end;
end;
function ParseResponse(HTTPResponse: TStrings): string;
var
i: Integer;
begin
Result := '';
if Pos('200',HTTPResponse[0]) > 0 then
begin
for i := 0 to Pred(HTTPResponse.Count) do
begin
if Pos('GET',HTTPResponse[i]) > 0 then
begin
Result := Copy(HTTPResponse[i],5,Pos('GET',HTTPResponse[i])-1);
Break;
end;
end;
end
else
Result := 'HTTP Error: '+HTTPResponse[0];
end;
const
host: PAnsiChar = 'my.telkomsel.com';
res : PAnsiChar = '/GTConnect/UnifiedAcceptor/AddWebFramework.Main/site/mytelkomsel/locale/id/';
var
Response: TStrings;
begin
Response := TStringList.Create;
try
if ResetBug(host,res,Response) then
begin
{$IFDEF DEBUG}
Writeln(Response.text);
{$ELSE}
Writeln(ParseResponse(Response));
{$ENDIF DEBUG}
end
else
Writeln('Error retrieving data');
finally
Response.Free;
end;
Readln;
3. Perhatikan Petunjuk berikut:
Port: integer = 443; port tersebut adalah port dari situs my.telkomsel.com
host: PAnsiChar = 'my.telkomsel.com';
res : PAnsiChar = '/GTConnect/UnifiedAcceptor/AddWebFramework.Main/site/mytelkomsel/locale/id/'; diambil dari https://my.telkomsel.com/GTConnect/UnifiedAcceptor/AddWebFramework.Main/site/mytelkomsel/locale/id/ anda bisa menggantinya dengan bug server milik anda karena itu hanyalah sebagai sample saja tetapi penggunaan aslinya kode diatas adalah untuk CGI tetapi sebenarnya tidak juga karena tergantung keperluan function tersebut untuk apa.
Hanya itu saja dulu Info dengan Cara Membuat Injek Reset System All Operator Terbaru 2016 Dengan Delphi 7 kurang lebihnya nanti akan kami tambahkan, untuk pertanyaan artikel ini hanya akan dilayani di google plus saja, terima kasih,
Artikel Selanjutnya: Download Proxy Grabber 2016
Artikel Selanjutnya: Download Proxy Grabber 2016
0 komentar:
Posting Komentar