Proyecto: Ghost Killer Adf.ly

Autor: Flamer

Referencias: [Enlace externo eliminado para invitados]

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.

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
 
        Err.Number = 0
 
        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 = ""
        If Err.Number <> 0 Then
            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: [Enlace externo eliminado para invitados]

voy a probarlo , gracias por compartirlo

Me dices como te fue

saludos Flamer

Flamer escribió:Me dices como te fue

saludos Flamer

_
/(|
( :
__\ \ _____
(____) `|
(____)| |
(____).__|
(___)__.|____