Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

[Tutorial] Descobrindo IP de um site

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Tutorial] Descobrindo IP de um site

Mensagem por bielzinx em Qui Maio 19, 2011 7:04 pm

Adicione:




1 Edit
1 Memo
2 Buttons

Acrecente a seguinte uses: Winsock
Adicione as seguintes functions:




Function nibzxd(strIPAddress : String) : String;
Var
strHost : String ;
pszIPAddress : PChar;
pReturnedHostEnt : PHostEnt;
InternetAddr : u_long;
GInitData : TWSADATA;
Begin
strHost := '';
If WSAStartup($101, GInitData) = 0 then
Begin
pszIPAddress := StrAlloc( Length( strIPAddress ) + 1 );
StrPCopy( pszIPAddress, strIPAddress );
InternetAddr := Inet_Addr(pszIPAddress);
StrDispose( pszIPAddress );
pReturnedHostEnt := GetHostByAddr( PChar(@InternetAddr),4, PF_INET );
try
strHost := pReturnedHostEnt^.h_name;
WSACleanup;
Result := strHost
except
Result := 'Host inválido ou não encontrado';
end;
end;
end;

Function clubeprogramacao(WebHostName:string):string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
WSAStartup(2, WSAData);
//Gethostname(PChar(WebHostName), 255);
//SetLength(WebHostName, StrLen(PChar(WebHostName)));
HostEnt := gethostbyname(PChar(WebHostName));
with HostEnt^ do
begin
Result := Format('%d.%d.%d.%d',
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;


No event OnClick do button1 adicione:




memo1.Lines.Add(edit1.Text+' - '+clubeprogramacao(edit1.Text));



no event OnClick do button2 adicione:



memo1.Clear;



no event OnKeyPress do edit1 adicione:



if key=#13 then
begin
button1.Click;
edit1.Clear;
edit1.SetFocus;
end;



Pronto digite o site no no edit1 e aperte o buton1 e aparecera o IP do site no memo.

bielzinx
Membro
Membro

Mensagens : 79
Agradecimentos : 8
Data de inscrição : 14/05/2011
20 / 10020 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Tutorial] Descobrindo IP de um site

Mensagem por ✖Gµ¡¢¡Þ™ em Seg Maio 23, 2011 8:59 pm

biel onde eu ponho o 1º codigo?

✖Gµ¡¢¡Þ™
Silver Member
Silver Member

Mensagens : 330
Agradecimentos : 35
Data de inscrição : 04/01/2011
Idade : 20
Localização : no pc
Humor : depende
0 / 1000 / 100



Ver perfil do usuário http://cheatshot.forumeiros.com/

Voltar ao Topo Ir em baixo

Descobri Galera

Mensagem por hotyuri em Sab Maio 28, 2011 11:47 pm

Mano Tabom o Topico So Faltou Prints . "E Vc Nao Esplicou Onde Nós Colocamos o Code 1."

==========#==================#===================#===================#===========

Ja Descobri Galera Esse Code Abaixo é na Form .


Spoiler:
Código:
[size=12]Function nibzxd(strIPAddress : String) : String;
Var
strHost : String ;
pszIPAddress : PChar;
pReturnedHostEnt : PHostEnt;
InternetAddr : u_long;
GInitData : TWSADATA;
Begin
strHost := '';
If WSAStartup($101, GInitData) = 0 then
Begin
pszIPAddress := StrAlloc( Length( strIPAddress ) + 1 );
StrPCopy( pszIPAddress, strIPAddress );
InternetAddr := Inet_Addr(pszIPAddress);
StrDispose( pszIPAddress );
pReturnedHostEnt := GetHostByAddr( PChar(@InternetAddr),4, PF_INET );
try
strHost := pReturnedHostEnt^.h_name;
WSACleanup;
Result := strHost
except
Result := 'Host inválido ou não encontrado';
end;
end;
end;

Function clubeprogramacao(WebHostName:string):string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
WSAStartup(2, WSAData);
//Gethostname(PChar(WebHostName), 255);
//SetLength(WebHostName, StrLen(PChar(WebHostName)));
HostEnt := gethostbyname(PChar(WebHostName));
with HostEnt^ do
begin
Result := Format('%d.%d.%d.%d',
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;[/size]



HoTyuri Para:

Ou


Última edição por hotyuri em Dom Maio 29, 2011 12:28 am, editado 5 vez(es) (Razão : Descobri)

hotyuri
Membro
Membro

Mensagens : 11
Agradecimentos : 0
Data de inscrição : 28/05/2011
Idade : 21
Localização : Cheats HoT
Humor : :D :S Kero Ser Disigner
0 / 1000 / 100



Ver perfil do usuário http://www.global-cheats.tk

Voltar ao Topo Ir em baixo

Re: [Tutorial] Descobrindo IP de um site

Mensagem por Conteúdo patrocinado Hoje à(s) 11:48 pm


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum