elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  Foro de elhacker.net
|-+  Seguridad Informática
| |-+  Análisis y Diseño de Malware
| | |-+  Abril negro (Moderadores: Man-In-the-Middle, WHK, kub0x, fary)
| | | |-+  Ghost SMF (Version 1.3) by WHK (Proyecto solo para "Abril Negro")
0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: 1 2 3 4 5 [6] 7 8 Ir Abajo Respuesta Imprimir
Autor Tema: Ghost SMF (Version 1.3) by WHK (Proyecto solo para "Abril Negro")  (Leído 106,440 veces)
WHK
Moderador Global
***
Desconectado Desconectado

Mensajes: 6.589


Sin conocimiento no hay espíritu


Ver Perfil WWW
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #50 en: 13 Abril 2009, 18:31 pm »

Hola, hize algunos cambios en el programa ya que habian algunos foros que impedian el ingreso y solo dejaban ver los temas a los usuarios registrados asi que....



 :D Ahora le di la opción de ingresar sesión a los fantasmas jajaja.
Las instrucciones siguen en el primer post al igual que la descarga.

Cualquer duda, consulta, reclamo no duden en decirlo.

PD: dejé un video también en el primer post.


En línea

Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #51 en: 13 Abril 2009, 18:37 pm »

Buen trabajo WHK... solo veo un problema... ahora tendran mas claro a quien Bannear :xD :xD

Saludos ;-)


En línea

Fran_Al


Desconectado Desconectado

Mensajes: 340

a veces....sobran las palabras..


Ver Perfil WWW
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #52 en: 13 Abril 2009, 19:59 pm »

muy buen aporte tio, gracias, de verdad.
¿Banear? ¿por qué? yo lo estoy haciendo en un foro, porque lo iban a tener que acer?
Un saludo
En línea

Jubjub


Desconectado Desconectado

Mensajes: 708


Lay Ladie lay,...


Ver Perfil WWW
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #53 en: 13 Abril 2009, 21:43 pm »

Jugoso.. ahora si que me entraron ganas de ver el source, la parte de inicio de sesion llevaba tiempo planeando usarla para un juguete :rolleyes:
En línea

Jugando con Fósforoshacking con un tono diferente


.
porno
BenRu
The Prodigy


Desconectado Desconectado

Mensajes: 4.006


Ver Perfil
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #54 en: 13 Abril 2009, 22:38 pm »

Yo ya hice una vez uno de estos en PHP.. te ha quedado bien  ;)


Por cierto WHK, podrías añadirle un timer entre visitante y visitante?
Ponerlo de forma manual o con random (cada vez con X segundos de diferencia).


Un saludo
En línea

Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #55 en: 13 Abril 2009, 22:49 pm »

muy buen aporte tio, gracias, de verdad.
¿Banear? ¿por qué? yo lo estoy haciendo en un foro, porque lo iban a tener que acer?
Un saludo
Por falsear las 'estadisticas'. Te parece poco? :xD... Bueno... yo bannearia :rolleyes:
En línea

jdc


Desconectado Desconectado

Mensajes: 3.406


Ver Perfil WWW
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #56 en: 14 Abril 2009, 00:44 am »

Es divertido jugar con foros que ponen "últimos usuarios conectados en los últimos 600 segundos" xD imagínense sí con los usuarios conectados en los últimos 15 segundos se pasan los 1000 en línea xD... Pobres estadísticas :(
En línea

Carloswaldo
Traductor
Moderador Global
***
Desconectado Desconectado

Mensajes: 4.762


Nos reservamos el derecho de ban.


Ver Perfil WWW
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #57 en: 14 Abril 2009, 01:17 am »

WHK, tienes que enseñarme a hacer eso del login, escríbeme por el msn cuando estés en linea.
En línea





Dominio en venta: https://forojapones.com/
WHK
Moderador Global
***
Desconectado Desconectado

Mensajes: 6.589


Sin conocimiento no hay espíritu


Ver Perfil WWW
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #58 en: 14 Abril 2009, 05:01 am »

Jugoso.. ahora si que me entraron ganas de ver el source, la parte de inicio de sesion llevaba tiempo planeando usarla para un juguete :rolleyes:
WHK, tienes que enseñarme a hacer eso del login, escríbeme por el msn cuando estés en linea.

Esto lel login lo hize en un proyecto aparte, cuando lo terminé solo copié las funciones al proyecto del ghost.

Código
  1. Private Sub Command1_Click()
  2. Winsock.RemoteHost = separar_host(Text3.Text, "host")
  3. Winsock.RemotePort = "80"
  4. Winsock.Connect
  5. Estado.Caption = "Conectando ..."
  6. End Sub
  7.  
  8. Private Sub Command2_Click()
  9. End
  10. End Sub
  11.  
  12. Public Function separar_host(Ruta As String, Tipo As String) As String
  13. Dim Datos() As String
  14. If Not Left$(Ruta, 7) = "http://" Then
  15. Ruta = "http://" & Ruta
  16. End If
  17. If Tipo = "host" Then
  18. Datos = Split(Ruta, "/")
  19. separar_host = Datos(2)
  20. ElseIf Tipo = "ruta" Then
  21. Datos = Split(Ruta, separar_host(Ruta, "host"))
  22. separar_host = Datos(1)
  23. End If
  24. End Function
  25.  
  26. Private Sub Winsock_Connect()
  27. Dim Post_Data As String
  28. Estado.Caption = "Enviando datos ..."
  29. Post_Data = "user=" & URLEncode(Text1.Text) & "&passwrd=" & URLEncode(Text2.Text)
  30.  
  31. Winsock.SendData _
  32. "POST " & separar_host(Text3.Text, "ruta") & "?action=login2 HTTP/1.1" & vbCrLf & _
  33. "Host: " & separar_host(Text3.Text, "host") & vbCrLf & _
  34. "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.0.8) Gecko/2009032609 Firefox/3.0.8 (.NET CLR 3.5.30729)" & vbCrLf & _
  35. "Connection: Close" & vbCrLf & _
  36. "Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
  37. "Content-Length: " & Len(Post_Data) & vbCrLf & vbCrLf & _
  38. Post_Data & vbCrLf
  39. End Sub
  40.  
  41. Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
  42. Dim Paquetes As String
  43. Estado.Caption = "Obteniendo paquetes ..."
  44. Winsock.GetData Paquetes
  45. If Not Eregi("302 Found", Paquetes) Then Estado.Caption = "Error de datos"
  46.  
  47. Text4.Text = Obtener_Cookies(Paquetes)
  48. DoEvents
  49. Winsock.Close
  50. Estado.Caption = "Finalizado"
  51. End Sub
  52.  
  53. Private Function Obtener_Cookies(Buffer As String) As String
  54. Rebuscar:
  55. Cookie = InStr(1, Buffer, "Set-Cookie: ")
  56. If Cookie = 0 Then
  57. Exit Function
  58. Else
  59. Buffer = Mid$(Buffer, Cookie, Len(Buffer))
  60. Cookie = InStr(1, Buffer, ";")
  61. Temporal = Mid$(Buffer, 1, Cookie)
  62. Buffer = Mid$(Buffer, Cookie, Len(Buffer))
  63. Temporal = Replace(Temporal, "Set-Cookie: ", "")
  64. Obtener_Cookies = Obtener_Cookies & " " & Temporal
  65. Pause "0.01"
  66. GoTo Rebuscar
  67. End If
  68. End Function
  69.  
  70. Public Function Eregi(Condicion As String, Buffer As String) As Boolean
  71. If InStr(1, Buffer, Condicion) > 0 Then Eregi = True Else Eregi = False
  72. End Function
  73.  
  74.  
  75. Public Function URLEncode(sRawURL As String) As String
  76.  
  77.    On Error GoTo Catch
  78.    Dim iLoop As Integer
  79.    Dim sRtn As String
  80.    Dim sTmp As String
  81.    Const sValidChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz:/.?=_-$(){}~&"
  82.  
  83.  
  84.    If Len(sRawURL) > 0 Then
  85.        ' Loop through each char
  86.  
  87.  
  88.        For iLoop = 1 To Len(sRawURL)
  89.            sTmp = Mid(sRawURL, iLoop, 1)
  90.  
  91.  
  92.            If InStr(1, sValidChars, sTmp, vbBinaryCompare) = 0 Then
  93.                ' If not ValidChar, convert to HEX and p
  94.                '     refix with %
  95.                sTmp = Hex(Asc(sTmp))
  96.  
  97.                If sTmp = "20" Then
  98.                    sTmp = "+"
  99.                ElseIf Len(sTmp) = 1 Then
  100.                    sTmp = "%0" & sTmp
  101.                Else
  102.                    sTmp = "%" & sTmp
  103.                End If
  104.  
  105.            End If
  106.  
  107.            sRtn = sRtn & sTmp
  108.        Next iLoop
  109.  
  110.        URLEncode = sRtn
  111.    End If
  112.  
  113. Finally:
  114.    Exit Function
  115. Catch:
  116.    URLEncode = ""
  117.    Resume Finally
  118. End Function
  119.  
  120. Public Sub Pause(interval)
  121. On Error Resume Next
  122. Dim atime
  123. atime = Timer
  124. Do While Timer - atime < Val(interval)
  125.  DoEvents
  126. Loop
  127. End Sub

Les dejo el ejemplo ejecutable y su fuente acá.



Si tienen alguna duda pueden preguntar en el subforo de visual basic.
« Última modificación: 14 Abril 2009, 05:14 am por WHK » En línea

jdc


Desconectado Desconectado

Mensajes: 3.406


Ver Perfil WWW
Re: Ghost SMF (Version 1.2) by WHK (Proyecto solo para "Abril Negro")
« Respuesta #59 en: 14 Abril 2009, 07:17 am »

 :¬¬ Tu pass tiene 10 caracteres?  :o

increible :xD
En línea

Páginas: 1 2 3 4 5 [6] 7 8 Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines