13 Years of Service
20%
al probar mi crypter puedo subir el archivo a encriptar pero al precionar el boton encriptar archivo obtengo este error en el visual basic
Private Sub cmdProteger_Click()
alguna sugerencia? no soy programador de visual basic simplemente estoy aprendiendo, agradezco cualquier sugerencia.
Archivo Cargado
Error 1
Error Visual Basic
Agrego el RC4 que estoy utilizando
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
doy creditos en el crypter por la ayuda
Edito por segunda vez ya esta mejor explicado y con codigo fuente.
Private Sub cmdProteger_Click()
alguna sugerencia? no soy programador de visual basic simplemente estoy aprendiendo, agradezco cualquier sugerencia.
Archivo Cargado

Error 1

Error Visual Basic
Agrego el RC4 que estoy utilizando
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
doy creditos en el crypter por la ayuda

Edito por segunda vez ya esta mejor explicado y con codigo fuente.
Last edited by a moderator: