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

Participe do fórum, é rápido e fácil

Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[Tutorial] Descobrindo IP de um site

3 participantes

Ir para baixo

[Tutorial] Descobrindo IP de um site Empty [Tutorial] Descobrindo IP de um site

Mensagem por bielzinx 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
bielzinx
Membro
Membro

Mensagens : 79
Agradecimentos : 8
Data de inscrição : 14/05/2011
[Tutorial] Descobrindo IP de um site Left_bar_bleue20 / 10020 / 100[Tutorial] Descobrindo IP de um site Right_bar_bleue



Ir para o topo Ir para baixo

[Tutorial] Descobrindo IP de um site Empty Re: [Tutorial] Descobrindo IP de um site

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

biel onde eu ponho o 1º codigo?
✖Gµ¡¢¡Þ™
✖Gµ¡¢¡Þ™
Silver Member
Silver Member

Mensagens : 330
Agradecimentos : 35
Data de inscrição : 04/01/2011
Idade : 27
Localização : no pc
Humor : depende
[Tutorial] Descobrindo IP de um site Left_bar_bleue0 / 1000 / 100[Tutorial] Descobrindo IP de um site Right_bar_bleue



https://cheatshot.forumeiros.com/

Ir para o topo Ir para baixo

[Tutorial] Descobrindo IP de um site Empty Descobri Galera

Mensagem por hotyuri Sáb 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:



HoTyuri Para:
[Tutorial] Descobrindo IP de um site Vxewk9
Ou
[Tutorial] Descobrindo IP de um site Jqp4ib


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

Mensagens : 11
Agradecimentos : 0
Data de inscrição : 28/05/2011
Idade : 29
Localização : Cheats HoT
Humor : :D :S Kero Ser Disigner
[Tutorial] Descobrindo IP de um site Left_bar_bleue0 / 1000 / 100[Tutorial] Descobrindo IP de um site Right_bar_bleue



http://www.global-cheats.tk

Ir para o topo Ir para baixo

[Tutorial] Descobrindo IP de um site Empty Re: [Tutorial] Descobrindo IP de um site

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos