GetDFiles versión 0.9.281012r1 LIBRE!

[neff10]

neff10 Última edición por

molaria que se pudiera desencriptar el que quisieramos, como el legend of metin, que me encanta su interfaz y tiene paneles del caballo y de la mascota:

[LoGoo]

LoGoo Baneado Última edición por

testcmdoculto? de que se trata :icon_redface:

[KataNa]

KataNa Última edición por

:in-love: Funciona

[Sema1995]

Sema1995 Última edición por

Dudo que anghios valla a subir este cliente xd

[KeKo]

KeKo Última edición por

@Sema1995 said:

Bueno , yo creo que el elements lo tenemos varios desencriptados ya

-.- Sabes que leo uj al menos podias soltarlo de manera un poco mas indirecta, que luego me pedireis cosas y pasara lo que pasara :trollface:

@Anghios said:

Aunque he de decir que kekoroto me ha lanzado muchas piedras a la cabeza, seguiré manteniendo la compostura.

Que grandes momentos en el post del getdfiles verdad? Hemos reido, llorado, conversado, discutido, etc en ese post xd Hace tiempo que renuncié a intentar expandir mi idea sobre este programa asi que a todos los que quereis quitar cosas a otros clientes aqui teneis una apliacion que os ira estupendamente (que nos conocemos todos y el 99.9% de la gente dara palmas con las orejas con la salida de este programa).

@Deviart said:

pues kekoroto es amigo.

Gracias fein, hacia tiempo que no te veia hablar x aqui

[Anghios]

Anghios Última edición por

@LoGoo said:

testcmdoculto? de que se trata :icon_redface:

Wups, se me olvidó cambiarlo.
Era el nombre del proyecto, tenía la otra versión del GetDFiles pero en ese puse en práctica como ocultar un cmd y devolver en una variable todo su contenido en valor string. Y eso es gracias a Blaster así que me funcionó lo que hice y pasé de hacer un nuevo proyecto, pero vamos que si le molesta a alguien lo cambio _xD_

[LoGoo]

LoGoo Baneado Última edición por

No si a mi me da igual no uso ese programa solo me interesava saber porque como comprenderas mirar el code y ver una funcion como esa... pues nose

[Anghios]

Anghios Última edición por

¿Una función?
Si de verdad has mirado la aplicación podrás comprobar que no hay ninguna función y/o variable llamada "testcmdoculto" LOL xD Lo único extraño que puedes encontrar son "keys" del M2 como variable "private".

Si quieres el source, solo pídemelo

[LoGoo]

LoGoo Baneado Última edición por

Bueno lo de las keys tambien me fije pero como trollees el cliente de ellos me da igual

[Anghios]

Anghios Última edición por

@LoGoo said:

Bueno lo de las keys tambien me fije pero como trollees el cliente de ellos me da igual

¿Pero de verdad sabes lo que dices? _xD_
¿Desde cuando un decompilador externo en consola de comandos va a trollear un cliente?

Tira a acostarte anda _xD_
En fin, colaré el source, me repugna la gente que va de lista y no tiene ni idea de NADA. Que sabe abrir un programa con VBDecompiler y se cree hacker _xD_

actu.vb

Public Class actu
    Dim version_actual As String = "0.5.20912r2"
    Dim version_nueva As String
    Dim url_descarga As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        descargar_app.RunWorkerAsync()
        ProgressBar1.Value = 70
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles descargar_app.DoWork
       

    End Sub

    Public Sub checkver()
        Dim request2 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://mep.universojuegos.es/getdfiles_dm/versiones/version_nueva.txt")
        Dim response2 As System.Net.HttpWebResponse = request2.GetResponse()
        Dim sr2 As System.IO.StreamReader = New System.IO.StreamReader(response2.GetResponseStream)
        version_nueva = sr2.ReadLine()
        url_descarga = sr2.ReadLine()
        Label1.Text = "Versión actual: " & version_actual
        Label2.Text = "Versión disponible: " & version_nueva
        If version_actual <> version_nueva Then
            Button1.Enabled = True
        End If
    End Sub

    Private Sub actualizar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False
        Dim comp_conex_internet As New System.Threading.Thread(AddressOf checkver)
        comp_conex_internet.Start()
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        changelog.Show()
    End Sub

    Private Sub descargar_app_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles descargar_app.DoWork
        ' MsgBox("Se está descargando la nueva versión, esta función puede tomar varios segundos", vbInformation)
        If My.Computer.FileSystem.FileExists("versionnueva.rar") Then
            My.Computer.FileSystem.DeleteFile("versionnueva.rar")
        End If
        My.Computer.Network.DownloadFile(url_descarga, "./versionnueva.rar")
        MsgBox("Se ha descargado la nueva versión del programa. La aplicación se reiniciará para aplicar la actualización.", vbInformation)
        Shell("system\install.bat")
        Application.Exit()
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        descargar_app.RunWorkerAsync()
        ProgressBar1.Value = 70
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Process.Start("http://foro.universojuegos.es/memberlist.php?mode=viewprofile&u=787")
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Process.Start("http://foro.universojuegos.es/memberlist.php?mode=viewprofile&u=979")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        changelog.Show()
    End Sub
End Class

Changelog.vb

Public Class changelog

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

Form1.vb

Public Class Form1
    Dim ruta As String = CurDir() & "\"
    Dim ruta_archivo As String
    Dim escogido As String
    Dim archivo_dropeado As String
    Dim rutafile As String
    Dim cienxcien As Boolean = False
    Dim evadir As Boolean = False

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' Shell(ruta & "a.exe -b -x -u C:\Users\Anghios\Desktop\Test\" & TextBox1.Text, AppWinStyle.NormalFocus)

       
        If BackgroundWorker1.IsBusy = False Then
            BackgroundWorker1.RunWorkerAsync()
            Timer1.Start()
        Else
            MsgBox("El proceso de desencriptado ya está iniciado, por favor aguarde hasta que termine el vigente.", vbInformation)
        End If

    End Sub




    'CONSOLA
    Private Sub Ejecutar(ByVal strExe As String, ByVal strArgumentos As String, ByVal ArchivoTrabajado As String)
        Dim startInfo As ProcessStartInfo = New ProcessStartInfo(strExe, strArgumentos)
        'fftt
        startInfo.UseShellExecute = False
        startInfo.ErrorDialog = False
        startInfo.CreateNoWindow = True
        startInfo.RedirectStandardOutput = True
        Try
            Dim p As Diagnostics.Process = System.Diagnostics.Process.Start(startInfo)
            Dim sr As System.IO.StreamReader = p.StandardOutput
            Dim cadenaSalida As String = sr.ReadToEnd()
            sr.Close()
            'MsgBox(cadenaSalida)
            If cadenaSalida.Contains("dump completed") Then
                MsgBox("El archivo " & archivo_dropeado & " ha sido desencriptado correctamente", vbInformation)
                cienxcien = True
            Else
                evadir = True
                MsgBox("Hubo un error al desencriptar. Contacte con Anghios a través de UniversoJuegos.es", vbCritical)


            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Dim archivo As String = archivito.Text.ToString.Substring(0, archivito.Text.ToString.Length - 4)
        Ejecutar(ruta & "system\a.exe", "-b -x -u " & rutafile, "")

    End Sub


    Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        If e.Data.GetDataPresent("FileDrop", True) = True Then
            Dim datei As String() = DirectCast(e.Data.GetData("FileDrop"), Object)
            archivito.Text = My.Computer.FileSystem.GetName(datei(0))
            archivo_dropeado = My.Computer.FileSystem.GetName(datei(0))
            rutafile = My.Computer.FileSystem.GetFileInfo(datei(0)).ToString
            Button1.Enabled = True
            Button1.Text = "Desencriptar " & archivo_dropeado & " de " & Form2.ListBox1.SelectedItem.ToString
            Label3.Enabled = True
            Button1.Enabled = True
            rutafile = rutafile.ToString.Substring(0, rutafile.ToString.Length - 4)
            Me.Show()
            ProgressBar1.Value = 0
            Label3.Text = "Desencriptado: 0%"
            evadir = False
            cienxcien = False
        End If
    End Sub
    Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        e.Effect = DragDropEffects.All
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Application.ExitThread()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Servidor seleccionado: " & Form2.ListBox1.SelectedItem.ToString
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Restart()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer2.Start()
        If evadir = True Then
            ProgressBar1.Value = 0
            Timer1.Stop()
            Timer2.Stop()
            ProgressBar1.Value = 0
        End If
        If ProgressBar1.Value = 80 Then
            Timer1.Stop()
            Timer2.Stop()
        Else
            If ProgressBar1.Value + 3 > 100 Then
                ProgressBar1.Value = 100
            Else
                ProgressBar1.Value = ProgressBar1.Value + 3
            End If

            Label3.Text = "Desencriptado: " & ProgressBar1.Value & "%"
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If cienxcien = True Then
            ProgressBar1.Value = 100
            Timer1.Stop()
            Label3.Text = "Desencriptado: 100%"
            Timer2.Stop()
        End If
    End Sub
End Class

Form2.vb

Public Class Form2
    Dim ruta As String = CurDir() & "\"
    Dim comprobar As String
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If My.Computer.FileSystem.FileExists("a.exe") Then
                My.Computer.FileSystem.MoveFile("a.exe", _
        "system\a.exe")
            End If
        Catch ex As Exception
        End Try
    End Sub

    Public Function leerycambiar()
        If comprobar = "" Then
            MsgBox("Primero debe seleccionar un servidor.", vbCritical)
        ElseIf ListBox1.SelectedItem.ToString = "Metin2Fireblood" Then
            'METIN2FIREBLOOD
            Dim escribir As New IO.StreamWriter(ruta & "infero_settings.ini")
            escribir.WriteLine("[Extensions]" & vbNewLine & _
             "eIndex=.eix" & vbNewLine & _
             "ePackage=.epk" & vbNewLine & _
          "[Encryption]" & vbNewLine & _
             "xTea1=58275755794F5150614373454C49534F" & vbNewLine & _
           "xTea2=22B8B40464B26E1FAEEA1800A6F6FB1C" & vbNewLine & _
          "Magic_1=4D434F5A" & vbNewLine & _
          "Magic_2=45504B44 ")
            escribir.Close()
            Form1.Show()
            Me.Hide()
        ElseIf ListBox1.SelectedItem.ToString = "Metin2Pegaso" Then
            'METIN2PEGASO
            Dim escribir As New IO.StreamWriter(ruta & "infero_settings.ini")
            escribir.WriteLine("[Extensions]" & vbNewLine & _
             "eIndex=.eix" & vbNewLine & _
             "ePackage=.epk" & vbNewLine & _
          "[Encryption]" & vbNewLine & _
             "xTea1=D57C44A9794C4D7F2B29A663E85794DB" & vbNewLine & _
           "xTea2=722CEDAA309E98DED8C38BF0C04F93C6" & vbNewLine & _
          "Magic_1=4D434F5A" & vbNewLine & _
          "Magic_2=45504B44 ")
            escribir.Close()
            Form1.Show()
            Me.Hide()
        ElseIf ListBox1.SelectedItem.ToString = "Metin2Panamera" Then
            'METIN2PANAMERA
            Dim escribir As New IO.StreamWriter(ruta & "infero_settings.ini")
            escribir.WriteLine("[Extensions]" & vbNewLine & _
             "eIndex=.eix" & vbNewLine & _
             "ePackage=.epk" & vbNewLine & _
          "[Encryption]" & vbNewLine & _
             "xTea1=546338506554754C366B514536786276" & vbNewLine & _
           "xTea2=425165474753376A3863463446654230" & vbNewLine & _
          "Magic_1=4D434F5A" & vbNewLine & _
          "Magic_2=45504B44 ")
            escribir.Close()
            Form1.Show()
            Me.Hide()
        ElseIf ListBox1.SelectedItem.ToString = "Metin2Guabina" Then
            'METIN2GUABINA
            Dim escribir As New IO.StreamWriter(ruta & "infero_settings.ini")
            escribir.WriteLine("[Extensions]" & vbNewLine & _
             "eIndex=.eix" & vbNewLine & _
             "ePackage=.epk" & vbNewLine & _
          "[Encryption]" & vbNewLine & _
             "xTea1=317531353875343968323267332F2829" & vbNewLine & _
           "xTea2=22B8B40464B26E1FAEEA1800A6F6FB1C" & vbNewLine & _
          "Magic_1=4D434F5A" & vbNewLine & _
          "Magic_2=45504B44 ")
            escribir.Close()
            Form1.Show()
            Me.Hide()
        ElseIf ListBox1.SelectedItem.ToString = "Metin2Dream" Then
            'METIN2DREAM
            Dim escribir As New IO.StreamWriter(ruta & "infero_settings.ini")
            escribir.WriteLine("[Extensions]" & vbNewLine & _
             "eIndex=.eix" & vbNewLine & _
             "ePackage=.epk" & vbNewLine & _
          "[Encryption]" & vbNewLine & _
             "xTea1=265D35533535385334313737343F2324" & vbNewLine & _
           "xTea2=22B8B40464B26E1FAEEA1800A6F6FB1C" & vbNewLine & _
          "Magic_1=4D434F5A" & vbNewLine & _
          "Magic_2=45504B44 ")
            escribir.Close()
            Form1.Show()
            Me.Hide()
        ElseIf ListBox1.SelectedItem.ToString = "ArcangelesMT2" Then
            'ARCANGELESMT2
            Dim escribir As New IO.StreamWriter(ruta & "infero_settings.ini")
            escribir.WriteLine("[Extensions]" & vbNewLine & _
             "eIndex=.eix" & vbNewLine & _
             "ePackage=.epk" & vbNewLine & _
          "[Encryption]" & vbNewLine & _
             "xTea1=B99EB0026F69810563989B2879181A00" & vbNewLine & _
           "xTea2=22b8b40464b26e1faeea1800a6f6fb1c" & vbNewLine & _
          "Magic_1=4D434F5A" & vbNewLine & _
          "Magic_2=45504B44 ")
            escribir.Close()
            Form1.Show()
            Me.Hide()
        ElseIf ListBox1.SelectedItem.ToString = "Metin2Terramistica" Then
            'METIN2TERRAMISTICA
            Dim escribir As New IO.StreamWriter(ruta & "infero_settings.ini")
            escribir.WriteLine("[Extensions]" & vbNewLine & _
             "eIndex=.eix" & vbNewLine & _
             "ePackage=.epk" & vbNewLine & _
          "[Encryption]" & vbNewLine & _
             "xTea1=554218F1F2AB1B12A413B5F1AF27ABF1" & vbNewLine & _
           "xTea2=22B8B40464B26E1FAEEA1800A6F6FB1C" & vbNewLine & _
          "Magic_1=4D434F5A" & vbNewLine & _
          "Magic_2=45504B44 ")
            escribir.Close()
            Form1.Show()
            Me.Hide()
        ElseIf ListBox1.SelectedItem.ToString = "Metin2Drakon" Then
            'METIN2DRAKON
            Dim escribir As New IO.StreamWriter(ruta & "infero_settings.ini")
            escribir.WriteLine("[Extensions]" & vbNewLine & _
             "eIndex=.eix" & vbNewLine & _
             "ePackage=.epk" & vbNewLine & _
          "[Encryption]" & vbNewLine & _
             "xTea1=7A61737465726465616474726F6C6C64" & vbNewLine & _
           "xTea2=6F6D676675636B796F7572677579736E" & vbNewLine & _
          "Magic_1=4D434F5A" & vbNewLine & _
          "Magic_2=45504B44 ")
            escribir.Close()
            Form1.Show()
            Me.Hide()
        End If

        Return True
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        leerycambiar()
        
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        actu.Show()
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        MsgBox("blaster de dmx")
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        comprobar = ListBox1.SelectedItem.ToString
    End Sub
End Class

Ala, a dormir.