Cara Menampikan IP adress pada inject

Cara Menampikan IP adress pada inject

1.pertama  maukan kode ini dibawah {$R *.dfm}

function GetIPFromHost (var HostName, IPaddr, WSAErr: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
begin
Result := False;
if WSAStartup($0101, WSAData) <> 0 then begin
WSAErr := 'Winsock is not responding."';
Exit;
end;
IPaddr := '';
New(HName);
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
HostName := StrPas(HName^);
HEnt := GetHostByName(HName^);
for i := 0 to HEnt^.h_length - 1 do
IPaddr :=
Concat(IPaddr,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(IPaddr, Length(IPaddr) - 1);
Result := True;
end
else begin
case WSAGetLastError of
WSANOTINITIALISED:WSAErr:='WSANotInitialised';
WSAENETDOWN      :WSAErr:='WSAENetDown';
WSAEINPROGRESS   :WSAErr:='WSAEInProgress';
end;
end;
Dispose(HName);
WSACleanup;
end;

2.klik 2 kali pada timer masuka kode ini

procedure TForm1.Timer1Timer(Sender: TObject)
var Host, IP, Err: string;
begin
if GetIPFromHost(Host, IP, Err) then begin
statusbar1.Panels[0].Text:=Host  ;
statusbar1.Panels[1].Text:=IP;

(itu saja infonya semoga bermanfaat)

CARA MENGETAHUI BUG ORANG