Membuat Injek Reset System All Operator Terbaru Dengan Delphi 7

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