Indetectables

Hola buenas, estoy empezando con la creación de crypters en VB6. Utilizo dicha version portable en Windows 7 y mi problema está en el momento de compilar el .exe.

Utilizo el siguiente códig0 de rc4 para el botón encriptar y me tira error de variable no definida y no me crea el exe.

Public Function RC4(ByVal Data As String, ByVal Password As String) As String
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = (Y + F(Y) + 1) Mod 256
Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function



Si alguien me pudiera echar una mano se lo agradecería.

Eso pasa cuando se intenta correr sin saber caminar. Tu mismo ya te has respondido a la pregunta, variable no definida.

Razón tienes toda la del mundo Sé perfectamente lo k estoy haciendo, pero el tema esk ando con poko tiempo libre (esto no quiere decir que no lea cosas) y tengo unos dias algo mas relajado y kiero ver "resultados" a corto plazo (aún de esta forma aunke no me guste)

Saludos

Fake dice la verdad.

te doy tres soluciones.

uno._ define tu variable ' la mejor opción.

la opciones vaga.

dos._ borra tu variable temp.

tres._ esta es la mejor opcion. estudia un poco

Public Function RC4(ByVal Data As String, ByVal Password As String) As String
Dim Tumadreesfea as string
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = (Y + F(Y) + 1) Mod 256
Key(X) = Key(X) Xor F(Tumadreesfea + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function

Tal y como dicen tienes que definir la variable o bien borrarla. Prueba con este
Aunque para la proxima busca un poco mas...

[Enlace externo eliminado para invitados]
[Enlace externo eliminado para invitados]

Janpr99 escribió:Public Function RC4(ByVal Data As String, ByVal Password As String) As String
Dim Tumadreesfea as string
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = (Y + F(Y) + 1) Mod 256
Key(X) = Key(X) Xor F(Tumadreesfea + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function

Tal y como dicen tienes que definir la variable o bien borrarla. Prueba con este
Aunque para la proxima busca un poco mas...

[Enlace externo eliminado para invitados]
[Enlace externo eliminado para invitados]

Eso esta mal, no puedes poner una string ahí. Hace falta una variable tipo numérica o directamente se quita esa variable porque no pinta nada ahí.

Exacto esta mal te explico.

Si tienes Option Explicit que Exige la declaración explícita de todas las variables. entonces que debes hacer declarar todas tus variables en tu proyecto.

dim Temp as integer

que por cierto ese cifrado no necesita esa variable porque en ningun momento se usa.

entonces quedaria de cualquiera de las siguentes formas.

Public Function RC4(ByVal Data As String, ByVal Password As String) As String
dim Temp as integer
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = (Y + F(Y) + 1) Mod 256
Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function



o Simplemente así:


Public Function RC4(ByVal Data As String, ByVal Password As String) As String
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = (Y + F(Y) + 1) Mod 256
Key(X) = Key(X) Xor F( F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function



Saludos

Mmmm no dudo de que tengais razon. No obstante, yo siempre que me da error lo defino como string y encrypta perfectamente.

Gracias a todos por responder. El error se solucionó, pero cuando intento abrir la "bolita" no me la abre...

Bueno creo que voy hacer lo que debería haber hecho desde el principio (aprender a andar, jejeje) Se que existen muchos tutoriales sobre VB6 pero si alguien me afina con alguno "orientado" a este tema se lo agradecería.

Saludos

No aprendas a programes malwares de a la primera aprender a programar cualquier otra cosa, manejo de archivos y cosas así, luego solo tendrás que ver como funciona un malware y hacerlo mas fácilmente.

saludos

Como sea, mirate los tutos de creación de encriptadores. Usá un módulo prefabricado (Xor, Rc4, CrypApi, Ghost, etc) de encriptación que funcione. Compilá.Encriptá. Escaneá. Anda comparando.
Los módulos existen hace tiempo y son usados aun por los que saben programar y manejan a la perfección Visual Basic. Un módulo no es más que una conjunción de instrucciones como una Api.
¿ O me van a decir que andan por la vida inventando Apis y módulos ?
Tratándose de encriptación, el denomimador común es ofuscarlas, alterarlas, disfrazarlas.
En rigor de verdad, conozco a un solo sujeto que me contó , siquiera verbalmente, la creación o reformulación de un módulo de encritpación hecho en C ++ que contrariamente a la lógica ,disminuye el peso del encriptado, ese sujeto es Osnaraus.
Mirate los tutos del foro.

Tomo nota, Ignaro. Muchísimas gracias