25 outubro 2009

Criando Um Mini Firewall em Delphi



O Som ta Muito Baixo, então por favor deixe o volume no maximo :D



Download do ICS AQUI

Oque Você deve Digitar:
OnClientConnect

memo1.Lines.Add('O endereço IP '+ Client.GetPeerAddr +' tentou netbus'); netbus.DisconnectAll;

memo1.Lines.Add('O endereço IP '+ Client.GetPeerAddr +' tentou Sub'); Subseven.DisconnectAll;

Botão Monitorar:

Netbus.Start;
Subseven.Start;

Botão Parar:

Netbus.Stop; Subseven.Stop;

Uses:
Inclua:
FtpSrvC;

Nenhum comentário:

Postar um comentário

Bem Vindo Ao VemPC...
Oque Você Achou desse post?

Search