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.

[Aporte] Ghost Killer Adf.ly by Flamer

  • 4 Respuestas
  • 2465 Vistas

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

Conectado Flamer

  • *
  • Underc0der
  • Mensajes: 24
  • Actividad:
    1.67%
  • Reputación 2
    • Ver Perfil
    • http://elblogdeflamer.blogspot.mx/
« en: Diciembre 27, 2016, 02:04:38 pm »



Proyecto:   Ghost Killer  Adf.ly

         Autor:  Flamer

Referencias: https://foro.elhacker.net/net/c_adfly_killer_05-t455465.0.html;msg2080233

             Por:  Doddy

    Lenguaje:  VB:Net 2010    

Descripción: Basado en el programa de Doddy, este también decodifica los enlaces adf.ly pero con la diferencia de que este tiene un modo de trabajo invisible sin la necesidad de estar llamando al programa cada rato este a párese cuando un enlace adf.ly asido copiado al porta papeles con la decodificación ya realizada.


Código: vb.net
  1. Public Class Form1
  2.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  3.         Timer1.Interval = 3000
  4.         Timer2.Interval = 1
  5.         msg.Visible = False
  6.     End Sub
  7.  
  8.  
  9.     Function decodifica(l)
  10.         On Error Resume Next
  11.         Dim web As New Object
  12.         Dim i, f, x As Integer
  13.         Dim a, b, t, code As String
  14.  
  15.         Err.Number = 0
  16.  
  17.         web = CreateObject("Microsoft.XmlHttp")
  18.         web.open("Get ", l, False)
  19.         web.send()
  20.         code = web.responseText
  21.  
  22.  
  23.  
  24.         i = InStr(code, "var ysmm")
  25.         f = InStr(code, "var easyUrl") - i
  26.         code = Mid(code, i, f)
  27.         code = Replace(code, "var ysmm = '", "")
  28.         code = Trim(Replace(code, "';", ""))
  29.         a = ""
  30.         b = ""
  31.         If Err.Number <> 0 Then
  32.             decodifica = "...:::Error En La Decodificacion:::..."
  33.         Else
  34.             For x = 1 To Len(code)
  35.                 t = (x - 1) Mod 2
  36.                 If t = 0 Then
  37.                     a = a & Mid(code, x, 1)
  38.                 Else
  39.                     b = Mid(code, x, 1) & b
  40.                 End If
  41.             Next
  42.  
  43.  
  44.             code = System.Text.Encoding.UTF8.GetString(System.Convert.FromBase64String(a & b))
  45.             decodifica = code.Substring(2)
  46.         End If
  47.  
  48.  
  49.     End Function
  50.  
  51.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  52.         If url.Text <> "" Then
  53.             If InStr(url.Text, "adf.ly") Then
  54.                 Resul.Text = decodifica(url.Text)
  55.             Else
  56.                 MsgBox("No Es Una url De adf.ly", , "Aviso De Error")
  57.             End If
  58.         Else
  59.             MsgBox("El Campo Esta Vasio", , "Aviso De Error")
  60.         End If
  61.  
  62.     End Sub
  63.  
  64.     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
  65.         Clipboard.SetData("UnicodeText", Resul.Text)
  66.         msg.Visible = True
  67.         Timer1.Start()
  68.     End Sub
  69.  
  70.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
  71.         msg.Visible = False
  72.         Timer1.Stop()
  73.     End Sub
  74.  
  75.     Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
  76.         Me.Visible = False
  77.         Timer2.Start()
  78.  
  79.     End Sub
  80.  
  81.     Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
  82.         Dim t As String
  83.  
  84.         t = CStr(Clipboard.GetData("UnicodeText"))
  85.  
  86.         If url.Text <> t Then
  87.             If InStr(t, "adf.ly") Then
  88.                 url.Text = t
  89.                 Resul.Text = decodifica(t)
  90.                 If Resul.Text <> "...:::Error En La Decodificacion:::..." Then
  91.                     Timer2.Stop()
  92.                     Me.Visible = True
  93.                 End If
  94.                
  95.             End If
  96.         End If
  97.     End Sub
  98.  
  99.     Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
  100.         Resul.Text = ""
  101.         url.Text = ""
  102.     End Sub
  103. End Class
  104.  
  105.  




descarga codigo fuente mas Exe: http://www.mediafire.com/file/v02ew6doec1y2dj/Ghost_Killer_adf.ly.rar

Desconectado fudmario

  • *
  • Cramel
  • *
  • Mensajes: 194
  • Actividad:
    1.67%
  • Reputación 11
    • Ver Perfil
    • fudmario - GitHub
  • Skype: fudmario
« Respuesta #1 en: Diciembre 29, 2016, 09:13:20 pm »
Hola,...
Sugerencia: Evita usar On Error Resume Next en VB.NET, siempre es mejor tener un control de errores, puedes optar por un bloque Try/Catch.

En .NET dispones de una amplia Biblioteca de Classes para poder utilizarla, razon por la cual trata de evitar usar:(CreateObject("Microsoft.XmlHttp")).
En vb.net puedes usar: WebClient.DownloadString
 
Saludos...


Conectado Flamer

  • *
  • Underc0der
  • Mensajes: 24
  • Actividad:
    1.67%
  • Reputación 2
    • Ver Perfil
    • http://elblogdeflamer.blogspot.mx/
« Respuesta #2 en: Diciembre 30, 2016, 01:23:34 pm »
No creo que tenga algo de malo que utilice objectos, no le perjudica al programa o si

y usar DownloadString solo para que se viera mas profesional y enredoso, pues yo no soy así y creo que es mas simple así que hasta un novato lo entendería y lo hice para que se viera mas simple y diferente a el de doddy ya que el usa ese comando en su Clase DH Tools.

y con lo de los errores si tienes razón estaría mejor usar try/catch pero estoy mas familiarizado con on error resume next

Saludos flamer y no soy bueno programando

Desconectado fudmario

  • *
  • Cramel
  • *
  • Mensajes: 194
  • Actividad:
    1.67%
  • Reputación 11
    • Ver Perfil
    • fudmario - GitHub
  • Skype: fudmario
« Respuesta #3 en: Diciembre 30, 2016, 09:48:46 pm »
 
Si bien VB.NET es flexible en ciertas cosas, no siempre es la mejor y/o la más óptima forma de realizar las cosas, como te dije teniendo a mano tan extensa libreria de clases que ofrece .NetFramework, porqué no aprovecharlas?....

De hecho Utilizando, WebClient.DownloadString tendrias un mejor control de lo que va a pasar en tiempo de ejecución.


Igual que tú, Yo tampoco soy bueno programando solo conozco pocas cosas, pero con el tiempo aprenderás y entenderás por que es mejor hacerlo de una u otra forma(como por ejemplo especificar el tipo de retorno en una función).


Saludos.


Conectado Flamer

  • *
  • Underc0der
  • Mensajes: 24
  • Actividad:
    1.67%
  • Reputación 2
    • Ver Perfil
    • http://elblogdeflamer.blogspot.mx/
« Respuesta #4 en: Diciembre 31, 2016, 02:40:33 pm »
ok entendido a lo mejor tienes razón


 

¿Te gustó el post? COMPARTILO!



[C#] Adf.ly Killer 0.5

Iniciado por BigBear

Respuestas: 3
Vistas: 2784
Último mensaje Agosto 22, 2016, 07:01:51 pm
por Zentraedi