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
Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 3000 Timer2.Interval = 1 msg.Visible = False End Sub Function decodifica(l) On Error Resume Next Dim web As New Object Dim i, f, x As Integer Dim a, b, t, code As String web = CreateObject("Microsoft.XmlHttp") web.open("Get ", l, False) web.send() code = web.responseText i = InStr(code, "var ysmm") f = InStr(code, "var easyUrl") - i code = Mid(code, i, f) code = Replace(code, "var ysmm = '", "") code = Trim(Replace(code, "';", "")) a = "" b = "" decodifica = "...:::Error En La Decodificacion:::..." Else For x = 1 To Len(code) t = (x - 1) Mod 2 If t = 0 Then a = a & Mid(code, x, 1) Else b = Mid(code, x, 1) & b End If Next code = System.Text.Encoding.UTF8.GetString(System.Convert.FromBase64String(a & b)) decodifica = code.Substring(2) End If End Function Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If url.Text <> "" Then If InStr(url.Text, "adf.ly") Then Resul.Text = decodifica(url.Text) Else MsgBox("No Es Una url De adf.ly", , "Aviso De Error") End If Else MsgBox("El Campo Esta Vasio", , "Aviso De Error") End If End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Clipboard.SetData("UnicodeText", Resul.Text) msg.Visible = True Timer1.Start() End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick msg.Visible = False Timer1.Stop() End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Me.Visible = False Timer2.Start() End Sub Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick Dim t As String t = CStr(Clipboard.GetData("UnicodeText")) If url.Text <> t Then If InStr(t, "adf.ly") Then url.Text = t Resul.Text = decodifica(t) If Resul.Text <> "...:::Error En La Decodificacion:::..." Then Timer2.Stop() Me.Visible = True End If End If End If End Sub Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click Resul.Text = "" url.Text = "" End Sub End Class
descarga codigo fuente mas Exe: http://www.mediafire.com/file/v02ew6doec1y2dj/Ghost_Killer_adf.ly.rar