kokytoh Posted March 2, 2012 Share Posted March 2, 2012 (edited) 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 This is the hidden content, please Sign In or Sign Up Error 1 This is the hidden content, please Sign In or Sign Up 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 This is the hidden content, please Sign In or Sign Up Edito por segunda vez ya esta mejor explicado y con codigo fuente. Edited March 4, 2012 by kokytoh Link to comment Share on other sites More sharing options...
0 (Sony) Posted March 2, 2012 Share Posted March 2, 2012 Amigo disculpa pero lo tendre que mover esta no es la zona indicada para esto espero alguien te ayude saludos Link to comment Share on other sites More sharing options...
0 Er Kali Posted March 3, 2012 Share Posted March 3, 2012 Bueno mucha gente de level-23 te podría ayudar, incluido yo, pero así no vas a aprender nada, si te lo hacen, con todos mis respetos, no conseguirás nada, para eso puedes cogerte el source de un crypter que funcione bien y dejarlo a tu gusto. Te recomiendo que leas lo básico de vb6, es un lenguaje relativamente fácil, y te va a servir en estos temas. Intenta hacerlo tu mismo, y si tienes alguna duda que no entiendas, no dudes en preguntarla por aquí Saludos Link to comment Share on other sites More sharing options...
0 (Sony) Posted March 3, 2012 Share Posted March 3, 2012 Aqui plantea tu otro problema y no hagas 2 post para una cosa que se puede resolver en el post y como te dijo el admin debes aprender no se te puede dar todo asi por asi amigo orientar es una cosa y dar y hacer es otra. Saludos Link to comment Share on other sites More sharing options...
0 kokytoh Posted March 4, 2012 Author Share Posted March 4, 2012 Gracias عя ҜΔŁĬ creo que ese error es por que el stub no esta generado y necesito un RunPE generator para poder hacer el script, estoy leyendo muchos tutoriales pero aveces se complica cuando uno no hace un curso de aprendizaje voy a intentar buscar un RunPE generator para probar el crypter por que por lo que veo funciona perfecto pero al faltar el stub no va a funcionar y va a lanzar ese error. Ante cualquier otra duda voy poniendo en este post mis avances, de todas maneras si alguien me podria dar una mano seria genial, un saludo. Link to comment Share on other sites More sharing options...
Question
kokytohal 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.
Edited by kokytohLink to comment
Share on other sites
3 answers to this question
Recommended Posts