elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  [Aporte] Ghost Killer Adf.ly by Flamer
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Aporte] Ghost Killer Adf.ly by Flamer  (Leído 740 veces)
Flamer


Desconectado Desconectado

Mensajes: 1.026


crack, crack y mas crack...


Ver Perfil WWW
[Aporte] Ghost Killer Adf.ly by Flamer
« en: 27 Diciembre 2016, 17:44 »





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
  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


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Crackme Nº1 De Flamer « 1 2 »
Ingeniería Inversa
Flamer 14 6,977 Último mensaje 13 Octubre 2011, 02:52
por Flamer
Craclme 2 By Flamer
Ingeniería Inversa
Flamer 8 1,681 Último mensaje 25 Agosto 2011, 07:30
por Tinkipinki
Crackme 1 de Flamer
Ingeniería Inversa
Tinkipinki 2 1,662 Último mensaje 23 Octubre 2011, 06:35
por Tinkipinki
Crackme Vol. 4 Por Flamer
Ingeniería Inversa
Flamer 7 3,861 Último mensaje 7 Diciembre 2011, 23:59
por chEEtos
Crackme 5 De Flamer
Ingeniería Inversa
Flamer 7 3,697 Último mensaje 14 Abril 2012, 01:21
por $Edu$
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines