GetDFiles versión 0.9.281012r1 LIBRE!

Topic created · 142 Mensajes · 17706 Visitas
  • 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:

  • testcmdoculto? de que se trata :icon_redface:

  • :in-love: Funciona

  • Dudo que anghios valla a subir este cliente xd

  • @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 😄

  • @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_

  • 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

  • ¿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 😛

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

  • @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.