GetDFiles versión 0.9.281012r1 LIBRE!
-
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.