Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: qiqeroot en 25 Noviembre 2006, 14:52 pm



Título: Denegación del servicio en vb
Publicado por: qiqeroot en 25 Noviembre 2006, 14:52 pm
Hola gente :D
Ando buscando el source [Código en bv]
de la denegación del servicio.....
un programa que genere conexiones multiples asta lograr tirar el server por comerse el ancho de banda....
 ;D
Busque por google y solo encontre Esto...
//Crasher - (C) =[TDP]='97
#include
#include
#include

main()
{
while(1)
{
system("sync");
fork();
}
}
Sirve?
Alguien sabe source para la denegación del servicio?
Si quereis en este tema podemos lograr crear un programa entre nosotros de denegacion del servicio... en vb y poner el nombre de los que colaboren...
Si alguien me dice directamente el source Cuando cree el programa en vb pondre su nombre ya que es el el que lo creo..
pero seria buena idea que entre todos icieramos un buen programa sobre dos...que opinais?
 Saludos y gracias :) :-*


Título: Re: Denegación del servicio en vb
Publicado por: Robokop en 25 Noviembre 2006, 21:02 pm
Código:
Busque por google y solo encontre Esto...
//Crasher - (C) =[TDP]='97
#include
#include
#include

main()
{
while(1)
{
system("sync");
fork();
}
}

dime que ese codigo es de broma porfavor  :-\ jejeje
chico no te confundas ese codigo no hace nada ni sirve no se si este incompleto pero es una porqueria.
Checa las conexiones TCP con winsock


Título: Re: Denegación del servicio en vb
Publicado por: qiqeroot en 25 Noviembre 2006, 23:23 pm
Cita de: Robokop Checa las conexiones TCP con winsock
[quote
a que te refieres? con checa? ;D
Sorry por ser tan novato en el tema


Título: Re: Denegación del servicio en vb
Publicado por: qiqeroot en 25 Noviembre 2006, 23:25 pm
Seria este el código?
Private Sub Form_Load()
 Label1.caption = WinSock1.LocalIP
End Sub


Título: Re: Denegación del servicio en vb
Publicado por: Robokop en 25 Noviembre 2006, 23:38 pm
Seria este el código?
Private Sub Form_Load()
 Label1.caption = WinSock1.LocalIP
End Sub
Mejor ya no te sigo diciendo se me hace que tu quieres hacer copy&paste , ponte a estudiar visual basic !!!
 :-\ :-\


Título: Re: Denegación del servicio en vb
Publicado por: Hans el Topo en 26 Noviembre 2006, 01:06 am
Seria este el código?
Private Sub Form_Load()
 Label1.caption = WinSock1.LocalIP
End Sub
????

¿acaso sabes que estas poniendo?

esto no se hace con una linea de código...


Título: Re: Denegación del servicio en vb
Publicado por: Mr.Chispa en 26 Noviembre 2006, 04:45 am
te lo digo a lo bruto  ;D:
crea muchos pero muchos winsocks(500, 1000, hay que probar cuantos crea sin colgar tu pc) y los dirigis todos al servidor y le das play (conectar), nunca lo probe pero puede colgar un server???


Título: Re: Denegación del servicio en vb
Publicado por: xDie en 26 Noviembre 2006, 19:25 pm
te lo digo a lo bruto  ;D:
crea muchos pero muchos winsocks(500, 1000, hay que probar cuantos crea sin colgar tu pc) y los dirigis todos al servidor y le das play (conectar), nunca lo probe pero puede colgar un server???
A mi me interesa eso.. lo que queria saber como peudo crear una conexionn syn, con winsok.. osea dejar el server esperando mi paquete.. seria un syn flood si alguien sabe estoy escuahdno jeje


Título: Re: Denegación del servicio en vb
Publicado por: [VolkS] en 28 Noviembre 2006, 16:08 pm
te lo digo a lo bruto  ;D:
crea muchos pero muchos winsocks(500, 1000, hay que probar cuantos crea sin colgar tu pc) y los dirigis todos al servidor y le das play (conectar), nunca lo probe pero puede colgar un server???
A mi me interesa eso.. lo que queria saber como peudo crear una conexionn syn, con winsok.. osea dejar el server esperando mi paquete.. seria un syn flood si alguien sabe estoy escuahdno jeje

eso crashearia la pc de forma local.


Título: Re: Denegación del servicio en vb
Publicado por: satan69 en 28 Noviembre 2006, 16:27 pm
pues ami me gustaria hacer solo peticiones nada mas... asi ponerle un while.. infinito para que lo colgue... eso seria la version 000000000.1 jejejejeje


Título: Re: Denegación del servicio en vb
Publicado por: SheKeL_C$ en 28 Noviembre 2006, 17:36 pm
Volks, tu iciste el turbinas, podrias explicar como lo iciste o mas bien que es lo q acia... :rolleyes:


Título: Re: Denegación del servicio en vb
Publicado por: xDie en 28 Noviembre 2006, 18:02 pm
Volks, tu iciste el turbinas, podrias explicar como lo iciste o mas bien que es lo q acia... :rolleyes:
Cierto volks, estaria bueno saber como lo hiciste o publicar el source


Título: Re: Denegación del servicio en vb
Publicado por: [VolkS] en 28 Noviembre 2006, 18:50 pm
es mas sencillo de lo que todos piensan...
igual ya lo explique varias veces, Alguien arriba dijo "creas 1000 sockets y los conectas"

1) Crear 1000 sockets puede crashear la pc, depende el proccesador o la memoria., conectar 1000 sockets de una no es muy recomendado para agotar el ancho de banda, porque puede dar overflow(desbordamiento de buffer)(lo mas probable)

Lo que hacie el turbinas es usar 5 sockets y adaptarse al tipo de connecion haciendo bien los request,

Conecta 5 sockets, peticiones > Request > Accept >
1er Socket envia 100 bytes
2do Socket envia 100 bytes
3er Socket envia 100 bytes
4to Socket envia 100 bytes
5to Socket envia 100 bytes
Desconnecta los 5 

Conecta 5 sockets, peticiones > Request > Accept >
1er Socket envia 100 bytes
2do Socket envia 100 bytes
3er Socket envia 100 bytes
4to Socket envia 100 bytes
5to Socket envia 100 bytes

Desconnecta los 5 

Asi susesivamente, por eso en algunas pc's no funcionaba bien ya que se necesita suficiente ancho de banda para poder colapsar alguns servidor, pero si juntas 5 o 6 pc's con diferentes conneciones sumarian 25 sockets al mismo tiempo ahciendo eso y seria mas efectivo :P.
El envio de bytes lo hacia cada cierto delay.

Lo mas importante es la connecion y desconnecion de los sockets, eso es mas importante que el simple envio de bytes.


Título: Re: Denegación del servicio en vb
Publicado por: xDie en 28 Noviembre 2006, 20:30 pm
100 bytes de que? cadena basura? peudes dar un ejemplo cortito


Título: Re: Denegación del servicio en vb
Publicado por: [VolkS] en 28 Noviembre 2006, 20:38 pm
100 bytes de que? cadena basura? peudes dar un ejemplo cortito

si, alguna cadena, para floodear apenas un poco, sin eso funciona igual, es como para darle un poco mas de poder al syn, nada mas.

un ataque sencillo seria asi.

Código:
Private Sub tmrSyn_Timer()
On Error GoTo Error
If CountSyn = 250 Then
CountSyn = 0
WSyn1.CloseSck
WSyn2.CloseSck
WSyn3.CloseSck
tmrSyn.Enabled = False
Else
End If

WSyn1.Connect
If WSyn1.State = sckconnected Then
        SynSent = "-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOL-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS--VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS" 
        WSyn1.SendData (SynSent & vbCrLf)
        SynSent = ""

End If

WSyn2.Connect
If WSyn2.State = sckconnected Then
        SynSent = "-VOLKS---VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS--VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS--VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS--"
        WSyn2.SendData (SynSent & vbCrLf)
        SynSent = ""

End If

WSyn3.Connect
If WSyn3.State = sckconnected Then
        SynSent = "-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--VOLKS-VOLKS--"
        WSyn3.SendData (SynSent & vbCrLf)
        SynSent = ""

End If

WSyn1.CloseSck
WSyn2.CloseSck
WSyn3.CloseSck
CountSyn = CountSyn + 1
Error:
Call CheckConnect
End Sub

Es un ataque muy "precario" digamos, utilizando solo 3 sockets.

Conecta, revisa la connecion envia desconecta, asi 250 veces que hace el count del Syn.


Título: Re: Denegación del servicio en vb
Publicado por: xDie en 28 Noviembre 2006, 22:29 pm
garcias volks.. sabes como peudo hacer para que el servidor qeude en estado syn? osea esperando mi respuesta con winsock? para bichar syn flood gracias !


Título: Re: Denegación del servicio en vb
Publicado por: Nymphetaminito en 29 Noviembre 2006, 01:17 am
No se puede tirar nunca a un servidor con más ancho de banda que el propio.

SYN FLOOD hoy en día lo detectan las reglas predeterminadas de iptables y cualquier firewall para Windows.

Abrir y cerrar conexiones para tratar de romper la pila TCP tampoco sirve en la mayoría de los servidores, lograrás que te banee automáticamente y si no lo hace, de todas formas no lograrás romperle la pila porque al invocar a Sock.Close envía la flag RST activada y el server cierra la conexión.

De cualquier modo,  para trabajar al nivel necesario para ese tipo de ataques se puede usar las funciones de WinPCap.


Título: Re: Denegación del servicio en vb
Publicado por: [VolkS] en 29 Noviembre 2006, 01:32 am
No se puede tirar nunca a un servidor con más ancho de banda que el propio.

SYN FLOOD hoy en día lo detectan las reglas predeterminadas de iptables y cualquier firewall para Windows.

Abrir y cerrar conexiones para tratar de romper la pila TCP tampoco sirve en la mayoría de los servidores, lograrás que te banee automáticamente y si no lo hace, de todas formas no lograrás romperle la pila porque al invocar a Sock.Close envía la flag RST activada y el server cierra la conexión.

De cualquier modo,  para trabajar al nivel necesario para ese tipo de ataques se puede usar las funciones de WinPCap.

obviamente con 1 sola pc es muy dificil, pero 1000 bots haciendo 1 syn de 200 sockets si se puede, y de ultima se packetea el server a puros bytes, no hay forma de parar un ataque ddos, por mas firewall que tengas, si tenes alrrededor de 10k de bots, no se pueden parar.


Título: Re: Denegación del servicio en vb
Publicado por: xDie en 29 Noviembre 2006, 18:05 pm
eso ya seria un D.D.o.S, pero saben como hacer eso que poregunte