Wenas , bueno mi duda es que me dieron ganas de hacer otro ScanTime para modificar una cosilla, y bueno la cosa es que me da error en la palabra RC4 , obviamente tiene el módulo añadido, me dá error en el Cliente.

Code:

Const FileSplit = "<@#@>"
Const Pass = "ABCDEFPXPROCRYPTERSCANTIMEPARAINDETECTABLESNET"
Private Sub Command1_Click()
With Dlg
.Filter = "Ejecutables *.exe |*.exe"
.DialogTitle = "seleccione un archivo"
.ShowOpen
Text1.Text = Dlg.FileName
End With

End Sub

Private Sub Command2_Click()
Dim archivo As String, stub As String

Open App.Path & "\stub.exe" For Binary As #1
stub = Space(LOF(1))
Get #1, , stub
Close #1

Open Text1.Text For Binary As #1
archivo = Space(LOF(1))
Get #1, , archivo
Close #1
Open App.Path & "\archivofinal.exe" For Binary As #1
Put #1, , stub & FileSplit & RC4(archivo, Pass)
Close #1
MsgBox " Termino "



y me dá error de:
Error de compilación, número de argumentos erróneos o asignación de propiedad no válida


y me marca la palabra RC4,


PD: la encryptación XOR utiliza alguna constante o es más simple que la RC4 xD?, es que estoy buscando nuevos modos de encrytapción y como usarlos xD

Pues simple, "RC4" no est declarado..

Dim RC4 as new "Nombredelmodulorc4"

SharkI escribió:Pues simple, "RC4" no est declarado..

Dim RC4 as new "Nombredelmodulorc4"

xDDDDDDDDDDDDD !!!!!!!!!, jajajajajja,, pequeño fallo xD,, una cosilla, una XOR o algún otro tipo de encryptación, que a diferencia del RC4 no utilize constastes o similares?


Probe con:
Dim RC4 As New RC4.bas
y tambien con
Dim RC4 As New RC4

El módulo se llama RC4, y el archivo tmb xD, sigue igual..xD

Es imposible que un modulo (.bas o de clase) tenga el mismo nombre que otro, visual basic no te lo permite.

Saludos!

SharkI escribió:Es imposible que un modulo (.bas o de clase) tenga el mismo nombre que otro, visual basic no te lo permite.

Saludos!

Haber, cree un módulo , le dije que existia y elejí el RC4.bas, se llamaba entonces así:

Module1(Rc4.bas) , si picas sobre él cambias el nombre y le pones Rc4, y se queda así:

Rc4(RC4.bas).

Si quieres te paso una foto, en difinitiva, como sería?

Dim RC4 as new RC4
o
Dim RC4 as new RC4.bas


(?)

ahh entonces no hace falta declararlo, solo escribes rc4. <- y un punto, te saldran las opciones del modulo .bas

Saludos!

Mñna lo pruebo y te digo, en caso de que furule te meto en Greets xD.

ALgún otro tipo de encryptación que no use constantes xD, ( no e provado ninguna otra, solo RC4 )

xpro escribió:Mñna lo pruebo y te digo, en caso de que furule te meto en Greets xD.

ALgún otro tipo de encryptación que no use constantes xD, ( no e provado ninguna otra, solo RC4 )

Busca en google XOR function, hay un source en una pagina web que vienen dos funciones de encriptar y desencriptar.

Saludos!

Muchachos, media pila.. no se puede instanciar un objeto con el nombre de un módulo por Dios santo..
xpro, abrí el módulo y fijáte cómo se llama la función que aplica el RC4, cuántos argumentos toma y de qué tipo son.
No necesitas una variable llamada RC4 porque ¡es una función, padre!


si yo tengo un módulo llamado cara_de_vergal.bas, que tiene adentro lo siguiente: ¿Cómo tengo que llamar a la función? cara_de_vergal? o Aplicar_RC4?
........
La 2da. el nombre del modulo no importa en lo más minimo. Además, si la función me pide 3 parámetros, y ninguno es opcional, le tengo que pasar los 3 parámetros, y respetando los tipos de datos que pide para cada uno. Favor de chequear el nombre de la función y los parámetros que te pide.

Además, si la encriptación RC4 está implementada como una Clase, hay que declarar primero una variable del tipo 'nombre_de_la_clase' y luego crear la instancia con 'Set tu_variable = new nombre_de_la_clase' y recién ahi podes invocar los miembros que encriptan...

De todos modos, avanti Rijndael...

avanti Rijndael ? italiano ? , cuando salga del insti y llege a casa lo miro y te comento xD.

verbal escribió:Muchachos, media pila.. no se puede instanciar un objeto con el nombre de un módulo por Dios santo..

x'D lo que yo decía era que si ponias el nombre del modulo.bas y un . te salían las funciones que habían dentro del modulo.bas.

Saludos!

Claro, pero no hay que ser pastoso: si ni siquiera estan escribiendo el código que encripta, no cuesta _nada_ abrir el .bas y ver cómo se llaman las funciones y qué argumentos toman.. es lo minimo-necesario para hacer funcar código de 3ros..

Supongo que lo de codigo de 3ºeros es por lo del módulo RC4 xD , la verdad es que sí que no he mirado atentamente el módulo, aprobecho para echarle un ojo..

SharkI escribió:Pues simple, "RC4" no est declarado..

Dim RC4 as new "Nombredelmodulorc4"

Dios Sharki si k das pena jodio eso es un error Garrafal... Nunca se Nombra Dim Loquesea as New Modulo jajaja eso solo se utiliza para los Modulos de Clase...:p Y el error da Porque me imagino que el Modulo de Encriptacion Tiene el Nombre de RC4 Y la Funcion de RC4 Tambien se llama RC4 Por lo que da errror si no le cambias el nombre al Modulo en vez de RC4.bas k le cambie el Nombre a cualquiercosa.bas y ya esta solucionado!...xD

PD: Ese surce se me hace algo conocido xD!

skyweb07 escribió:

SharkI escribió:Pues simple, "RC4" no est declarado..

Dim RC4 as new "Nombredelmodulorc4"

Dios Sharki si k das pena jodio eso es un error Garrafal... Nunca se Nombra Dim Loquesea as New Modulo jajaja eso solo se utiliza para los Modulos de Clase...:p Y el error da Porque me imagino que el Modulo de Encriptacion Tiene el Nombre de RC4 Y la Funcion de RC4 Tambien se llama RC4 Por lo que da errror si no le cambias el nombre al Modulo en vez de RC4.bas k le cambie el Nombre a cualquiercosa.bas y ya esta solucionado!...xD

PD: Ese surce se me hace algo conocido xD!

jaja joder ya se lia aki de nuevo.. veras..

salu2