This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

[SOLUCIONADO] Problema con código VB6 para Crypter

  • 3 Replies
  • 2362 Views

0 Members and 1 Guest are viewing this topic.

Offline MYokai

  • *
  • Underc0der
  • Posts: 76
  • Actividad:
    0%
  • Reputación 0
  • Deja ya de discutir qué es un hombre bueno; sé uno
    • View Profile
    • Email

[SOLUCIONADO] Problema con código VB6 para Crypter

  • on: March 15, 2015, 10:34:37 am
Hola a la tropa:

Me he animado a hacer un crypter, pero me encuentro con un problema.
Tengo este código:
Code: You are not allowed to view links. Register or Login
Const clave1 = "Aquí meto el código de la primera clave"
Const clave2 = "Aquí meto el código de la segunda clave"
Const clave3 = "Aquí meto el código de la tercera clave"
Public Function srandom()
Dim dimstring As String
Dim diminteger As Integer
dimstring = clave1 + clave2 + clave3
For diminteger = 1 To 50
srandom = srandom & Mid$(dimstring, Int((Rnd * Len(diminteger)) + 1), 1)
Next diminteger
End Function

y este otro:
Code: You are not allowed to view links. Register or Login
Private Sub Command2_Click()
Text2.Text = srandom
End Sub

Lo que me ocurre es que cuando le doy al botón de generar las keys sólo me toma los dos primeros caracteres de la primera clave.

He estado revisando el código y lo veo bien. A ver si alguien me puede echar un cable.

Gracias y saludos.
« Last Edit: March 15, 2015, 01:46:14 pm by Expermicid »
Scanned today; Hacked tomorrow.

Offline Expermicid

  • *
  • Ex-Staff
  • *****
  • Posts: 457
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • View Profile

Re:Problema con código VB6 para Crypter

  • on: March 15, 2015, 12:23:03 pm
Hace rato que no toco vb...

Y a lo mejor digo un locura, pero me parece raro esta parte:

Code: (vb) You are not allowed to view links. Register or Login
Len(diminteger)
No seria:

Code: (vb) You are not allowed to view links. Register or Login
Len(dimstring)
Saludos

Offline MYokai

  • *
  • Underc0der
  • Posts: 76
  • Actividad:
    0%
  • Reputación 0
  • Deja ya de discutir qué es un hombre bueno; sé uno
    • View Profile
    • Email

Re:Problema con código VB6 para Crypter

  • on: March 15, 2015, 01:44:23 pm
OK. Correcto. Era eso. No sé cómo no lo he visto antes. Gracias.
Scanned today; Hacked tomorrow.

Offline Expermicid

  • *
  • Ex-Staff
  • *****
  • Posts: 457
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • View Profile

Re:Problema con código VB6 para Crypter

  • on: March 15, 2015, 01:45:29 pm
Buenísimo MYokai