API tools faq
paste
Advertisement
Guest User

aaa

a guest
Feb 25th, 2015
333
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 14.76 KB | None | 0 0
raw download clone embed print report
  1. Imports System.IO
  2. Imports System.Text
  3. Imports System.Net
  4.  
  5. Public Class LifeForWar
  6.  
  7.     Public ifFileExist As Boolean
  8.  
  9.     Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Connect.Click
  10.  
  11.         ErrorAuthMessage.Visible = False
  12.         RemplirChamps.Visible = False
  13.  
  14.  
  15.         ' Se souvenir de moi
  16.         If (ifFileExist = False) Then
  17.             If (RememberMe.Checked = True) Then
  18.                 Dim log As New System.IO.StreamWriter("log.txt")
  19.                 log.WriteLine(TextBox_pseudo.Text)
  20.                 log.WriteLine(TextBox_mdp.Text)
  21.                 log.Close()
  22.             End If
  23.         ElseIf (ifFileExist = True) Then
  24.             If (RememberMe.Checked = False) Then
  25.                 Kill("log.txt")
  26.             End If
  27.         End If
  28.  
  29.        
  30.  
  31.         Dim PlayerName As String = TextBox_pseudo.Text
  32.         Dim PlayerMdp As String = TextBox_mdp.Text
  33.         If (TextBox_pseudo.Text <> "" And TextBox_mdp.Text <> "") Then
  34.             ConnectServ(PlayerName, PlayerMdp)
  35.         Else
  36.             RemplirChamps.Visible = True
  37.  
  38.         End If
  39.  
  40.     End Sub
  41.  
  42.     Private Sub ErrorMessage()
  43.         Dim ErrorMess As String = "Une erreur est survenue lors de la lecture de vos identifiants! Veuillez réessayez en complétant tous les champs !"
  44.         MsgBox(ErrorMess)
  45.     End Sub
  46.  
  47.     Private Sub ErrorMessageAuth()
  48.         Dim ErrorMessAuth As String = "Une erreur est survenue lors de l'authentification ! Mot de passe ou nom de compte incorrect !"
  49.         MsgBox(ErrorMessAuth)
  50.     End Sub
  51.  
  52.     Private Function Authenticate(ByVal PlayerName As String, ByVal PlayerPassword As String) As String()
  53.  
  54.         ' Variables
  55.         Dim RequestResult As String = ""
  56.         Dim RequestHeader As String = "{""agent"": {""name"": ""Minecraft"",""version"": 1},""username"": """ & PlayerName & """,""password"": """ & PlayerPassword & """}"
  57.         Dim UserToken As String = ""
  58.         Dim UUID As String = ""
  59.         Dim AuthServer As String = "https://authserver.mojang.com/authenticate"
  60.  
  61.         ' Requête d'authentification
  62.         Dim AuthRequest As WebRequest
  63.         AuthRequest = WebRequest.Create(AuthServer)
  64.         Dim RequestResponse As WebResponse
  65.         Dim PostData As String = RequestHeader
  66.         Dim data As Byte() = Encoding.UTF8.GetBytes(PostData)
  67.  
  68.         AuthRequest.Method = "POST"
  69.         AuthRequest.ContentType = "application/json"
  70.         AuthRequest.ContentLength = data.Length
  71.  
  72.         Dim RequestStream As Stream = AuthRequest.GetRequestStream()
  73.         Try
  74.             RequestStream.Write(data, 0, data.Length)
  75.             RequestStream.Close()
  76.         Catch
  77.             ' TODO log
  78.         End Try
  79.  
  80.         Try
  81.             RequestResponse = AuthRequest.GetResponse()
  82.             Dim ResponseReader As New StreamReader(RequestResponse.GetResponseStream())
  83.             RequestResult = (ResponseReader.ReadToEnd)
  84.             'MsgBox(RequestResult) 'ICI, CA RENVOIE LES TOKEN, UUID, ETC...SI ON FAIT AVEC EMAIL
  85.  
  86.  
  87.             Dim ResponseArray As String() = RequestResult.Split(New Char() {":"c})
  88.  
  89.             UserToken = ResponseArray(1).ToString.Split(New Char() {","c})(0).Replace("""", "")
  90.             UUID = ResponseArray(4).ToString.Split(New Char() {","c})(0).Replace("""", "")
  91.  
  92.             Return {PlayerName, PlayerPassword, UserToken, UUID}
  93.  
  94.         Catch ConnexionFailed As WebException
  95.             ''Log.Debug("Une erreur est survenue lors de la requête d'identification.")
  96.             Dim ResponseReader As New StreamReader(ConnexionFailed.Response.GetResponseStream())
  97.             RequestResult = (ResponseReader.ReadToEnd)
  98.  
  99.             Dim ErrorType As String = RequestResult.Split(":")(1).Split(",")(0).Replace("""", "")
  100.             Dim ErrorMessage As String = RequestResult.Split(":")(2).Replace("}", Nothing).Replace("""", "")
  101.         Catch ex As Exception
  102.             MsgBox(ex.Message)
  103.        
  104.         End Try
  105.  
  106.         Return {"Erreur inconnue."}
  107.  
  108.     End Function
  109.  
  110.     Private Sub ConnectServ(ByVal PlayerName As String, ByVal PlayerPassword As String)
  111.  
  112.        
  113.  
  114.         ' Authentification
  115.         Dim UserCredentials As String() = Authenticate(PlayerName, PlayerPassword)
  116.         If (UserCredentials.Length >= 4) Then
  117.             Dim UserToken As String = UserCredentials(2)
  118.             Dim UUID As String = UserCredentials(3)
  119.  
  120.  
  121.             ' Lancement
  122.             Dim G As String = """"
  123.             Dim gamedir As String = "%appdata%" & "\.lifeforwar"
  124.             Dim natives As String = gamedir & "\natives"
  125.             Dim libraries As String = gamedir & "\libraries"
  126.             Dim assets As String = gamedir & "\assets"
  127.             Dim version As String = "1.7.10"
  128.             Dim jarver As String = gamedir & "\versions\lfw\lfw-1.7.10.jar" & G
  129.             Dim mainclass As String = "net.minecraft.launchwrapper.Launch"
  130.             Dim userproperties As String = "{}"
  131.             Dim usertype As String = "mojang"
  132.             Dim tweakclass As String = "cpw.mods.fml.common.launcher.FMLTweaker"
  133.  
  134.             Dim exe As String = "java" '"""C:\Program Files\Java\jre7\bin\java.exe"""
  135.             Dim libs As String = ""
  136.             ' For Each file In IO.Directory.GetFiles(libraries, "*.jar", IO.SearchOption.AllDirectories)
  137.             ' libs &= """" & File & """;"
  138.             ' Next
  139.  
  140.             '" -cp " & G & libs & jarver & G & " " & mainclass & _
  141.             '" -cp """ & gamedir & "\libraries\net\minecraftforge\forge\1.7.10-10.13.2.1230\forge-1.7.10-10.13.2.1230.jar;" & gamedir & "\libraries\net\minecraft\launchwrapper\1.11\launchwrapper-1.11.jar;" & gamedir & "\libraries\org\ow2\asm\asm-all\5.0.3\asm-all-5.0.3.jar;" & gamedir & "\libraries\com\typesafe\akka\akka-actor_2.11\2.3.3\akka-actor_2.11-2.3.3.jar;" & gamedir & "\libraries\com\typesafe\config\1.2.1\config-1.2.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-actors-migration_2.11\1.1.0\scala-actors-migration_2.11-1.1.0.jar;" & gamedir & "\libraries\org\scala-lang\scala-compiler\2.11.1\scala-compiler-2.11.1.jar;" & gamedir & "\libraries\org\scala-lang\plugins\scala-continuations-library_2.11\1.0.2\scala-continuations-library_2.11-1.0.2.jar;" & gamedir & "\libraries\org\scala-lang\plugins\scala-continuations-plugin_2.11.1\1.0.2\scala-continuations-plugin_2.11.1-1.0.2.jar;" & gamedir & "\libraries\org\scala-lang\scala-library\2.11.1\scala-library-2.11.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-parser-combinators_2.11\1.0.1\scala-parser-combinators_2.11-1.0.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-reflect\2.11.1\scala-reflect-2.11.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-swing_2.11\1.0.1\scala-swing_2.11-1.0.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-xml_2.11\1.0.2\scala-xml_2.11-1.0.2.jar;" & gamedir & "\libraries\net\sf\jopt-simple\jopt-simple\4.5\jopt-simple-4.5.jar;" & gamedir & "\libraries\lzma\lzma\0.0.1\lzma-0.0.1.jar;" & gamedir & "\libraries\com\mojang\realms\1.3.5\realms-1.3.5.jar;" & gamedir & "\libraries\org\apache\commons\commons-compress\1.8.1\commons-compress-1.8.1.jar;" & gamedir & "\libraries\org\apache\httpcomponents\httpclient\4.3.3\httpclient-4.3.3.jar;" & gamedir & "\libraries\commons-logging\commons-logging\1.1.3\commons-logging-1.1.3.jar;" & gamedir & "\libraries\org\apache\httpcomponents\httpcore\4.3.2\httpcore-4.3.2.jar;" & gamedir & "\libraries\java3d\vecmath\1.3.1\vecmath-1.3.1.jar;" & gamedir & "\libraries\net\sf\trove4j\trove4j\3.0.3\trove4j-3.0.3.jar;" & gamedir & "\libraries\com\ibm\icu\icu4j-core-mojang\51.2\icu4j-core-mojang-51.2.jar;" & gamedir & "\libraries\com\paulscode\codecjorbis\20101023\codecjorbis-20101023.jar;" & gamedir & "\libraries\com\paulscode\codecwav\20101023\codecwav-20101023.jar;" & gamedir & "\libraries\com\paulscode\libraryjavasound\20101123\libraryjavasound-20101123.jar;" & gamedir & "\libraries\com\paulscode\librarylwjglopenal\20100824\librarylwjglopenal-20100824.jar;" & gamedir & "\libraries\com\paulscode\soundsystem\20120107\soundsystem-20120107.jar;" & gamedir & "\libraries\io\netty\netty-all\4.0.10.Final\netty-all-4.0.10.Final.jar;" & gamedir & "\libraries\com\google\guava\guava\16.0\guava-16.0.jar;" & gamedir & "\libraries\org\apache\commons\commons-lang3\3.2.1\commons-lang3-3.2.1.jar;" & gamedir & "\libraries\commons-io\commons-io\2.4\commons-io-2.4.jar;" & gamedir & "\libraries\commons-codec\commons-codec\1.9\commons-codec-1.9.jar;" & gamedir & "\libraries\net\java\jinput\jinput\2.0.5\jinput-2.0.5.jar;" & gamedir & "\libraries\net\java\jutils\jutils\1.0.0\jutils-1.0.0.jar;" & gamedir & "\libraries\com\google\code\gson\gson\2.2.4\gson-2.2.4.jar;" & gamedir & "\libraries\com\mojang\authlib\1.5.16\authlib-1.5.16.jar;" & gamedir & "\libraries\org\apache\logging\log4j\log4j-api\2.0-beta9\log4j-api-2.0-beta9.jar;" & gamedir & "\libraries\org\apache\logging\log4j\log4j-core\2.0-beta9\log4j-core-2.0-beta9.jar;" & gamedir & "\libraries\org\lwjgl\lwjgl\lwjgl\2.9.1\lwjgl-2.9.1.jar;" & gamedir & "\libraries\org\lwjgl\lwjgl\lwjgl_util\2.9.1\lwjgl_util-2.9.1.jar;" & gamedir & "\libraries\tv\twitch\twitch\5.16\twitch-5.16.jar;" & _
  142.             'jarver & """ " & mainclass & _
  143.             Dim params As String = _
  144.                 "-Djava.library.path=" & G & natives & G & _
  145.                 " -cp " & G & gamedir & "\libraries\net\minecraftforge\forge\1.7.10-10.13.2.1230\forge-1.7.10-10.13.2.1230.jar;" & gamedir & "\libraries\net\minecraft\launchwrapper\1.11\launchwrapper-1.11.jar;" & gamedir & "\libraries\org\ow2\asm\asm-all\5.0.3\asm-all-5.0.3.jar;" & gamedir & "\libraries\com\typesafe\akka\akka-actor_2.11\2.3.3\akka-actor_2.11-2.3.3.jar;" & gamedir & "\libraries\com\typesafe\config\1.2.1\config-1.2.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-actors-migration_2.11\1.1.0\scala-actors-migration_2.11-1.1.0.jar;" & gamedir & "\libraries\org\scala-lang\scala-compiler\2.11.1\scala-compiler-2.11.1.jar;" & gamedir & "\libraries\org\scala-lang\plugins\scala-continuations-library_2.11\1.0.2\scala-continuations-library_2.11-1.0.2.jar;" & gamedir & "\libraries\org\scala-lang\plugins\scala-continuations-plugin_2.11.1\1.0.2\scala-continuations-plugin_2.11.1-1.0.2.jar;" & gamedir & "\libraries\org\scala-lang\scala-library\2.11.1\scala-library-2.11.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-parser-combinators_2.11\1.0.1\scala-parser-combinators_2.11-1.0.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-reflect\2.11.1\scala-reflect-2.11.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-swing_2.11\1.0.1\scala-swing_2.11-1.0.1.jar;" & gamedir & "\libraries\org\scala-lang\scala-xml_2.11\1.0.2\scala-xml_2.11-1.0.2.jar;" & gamedir & "\libraries\net\sf\jopt-simple\jopt-simple\4.5\jopt-simple-4.5.jar;" & gamedir & "\libraries\lzma\lzma\0.0.1\lzma-0.0.1.jar;" & gamedir & "\libraries\com\mojang\realms\1.3.5\realms-1.3.5.jar;" & gamedir & "\libraries\org\apache\commons\commons-compress\1.8.1\commons-compress-1.8.1.jar;" & gamedir & "\libraries\org\apache\httpcomponents\httpclient\4.3.3\httpclient-4.3.3.jar;" & gamedir & "\libraries\commons-logging\commons-logging\1.1.3\commons-logging-1.1.3.jar;" & gamedir & "\libraries\org\apache\httpcomponents\httpcore\4.3.2\httpcore-4.3.2.jar;" & gamedir & "\libraries\java3d\vecmath\1.3.1\vecmath-1.3.1.jar;" & gamedir & "\libraries\net\sf\trove4j\trove4j\3.0.3\trove4j-3.0.3.jar;" & gamedir & "\libraries\com\ibm\icu\icu4j-core-mojang\51.2\icu4j-core-mojang-51.2.jar;" & gamedir & "\libraries\com\paulscode\codecjorbis\20101023\codecjorbis-20101023.jar;" & gamedir & "\libraries\com\paulscode\codecwav\20101023\codecwav-20101023.jar;" & gamedir & "\libraries\com\paulscode\libraryjavasound\20101123\libraryjavasound-20101123.jar;" & gamedir & "\libraries\com\paulscode\librarylwjglopenal\20100824\librarylwjglopenal-20100824.jar;" & gamedir & "\libraries\com\paulscode\soundsystem\20120107\soundsystem-20120107.jar;" & gamedir & "\libraries\io\netty\netty-all\4.0.10.Final\netty-all-4.0.10.Final.jar;" & gamedir & "\libraries\com\google\guava\guava\16.0\guava-16.0.jar;" & gamedir & "\libraries\org\apache\commons\commons-lang3\3.2.1\commons-lang3-3.2.1.jar;" & gamedir & "\libraries\commons-io\commons-io\2.4\commons-io-2.4.jar;" & gamedir & "\libraries\commons-codec\commons-codec\1.9\commons-codec-1.9.jar;" & gamedir & "\libraries\net\java\jinput\jinput\2.0.5\jinput-2.0.5.jar;" & gamedir & "\libraries\net\java\jutils\jutils\1.0.0\jutils-1.0.0.jar;" & gamedir & "\libraries\com\google\code\gson\gson\2.2.4\gson-2.2.4.jar;" & gamedir & "\libraries\com\mojang\authlib\1.5.16\authlib-1.5.16.jar;" & gamedir & "\libraries\org\apache\logging\log4j\log4j-api\2.0-beta9\log4j-api-2.0-beta9.jar;" & gamedir & "\libraries\org\apache\logging\log4j\log4j-core\2.0-beta9\log4j-core-2.0-beta9.jar;" & gamedir & "\libraries\org\lwjgl\lwjgl\lwjgl\2.9.1\lwjgl-2.9.1.jar;" & gamedir & "\libraries\org\lwjgl\lwjgl\lwjgl_util\2.9.1\lwjgl_util-2.9.1.jar;" & gamedir & "\libraries\tv\twitch\twitch\5.16\twitch-5.16.jar;" & jarver & " " & mainclass & _
  146.                 " --username " & PlayerName & _
  147.                 " --version " & version & _
  148.                 " --gameDir " & G & gamedir & G & _
  149.                 " --assetsDir " & G & assets & G & _
  150.                 " --assetIndex " & version & _
  151.                 " --uuid " & UUID & _
  152.                 " --accessToken " & UserToken & _
  153.                 " --userProperties " & userproperties & _
  154.                 " --userType " & usertype & _
  155.                 " --tweakClass " & tweakclass
  156.  
  157.             ' Débogage ("start__.bat", exe & " " & params & vbNewLine & "pause")
  158.             ' IO.File.WriteAllText("start__.bat", exe & " " & params & vbNewLine & "pause")
  159.             ' Process.Start("notepad++", "start__.bat")
  160.  
  161.  
  162.             Try
  163.                 Process.Start(exe, params)
  164.             Catch ex As Exception
  165.                 MsgBox(ex.Message)
  166.             End Try
  167.  
  168.         ElseIf (UserCredentials.Length = 1) Then
  169.             ErrorAuthMessage.Visible = True
  170.  
  171.         ElseIf (UserCredentials.Length = 0) Then
  172.             ErrorMessage()
  173.         End If
  174.  
  175.  
  176.  
  177.     End Sub
  178.  
  179.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  180.         If (File.Exists("log.txt") = True) Then
  181.             RememberMe.Checked = True
  182.             Dim logRead As New StreamReader("log.txt")
  183.             TextBox_pseudo.Text = logRead.ReadLine
  184.             TextBox_mdp.Text = logRead.ReadLine
  185.             pictureBox_PlayerHead.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData("https://minotar.net/avatar/" & TextBox_pseudo.Text)))
  186.             ifFileExist = True
  187.             logRead.Close()
  188.         ElseIf (File.Exists("log.txt") = False) Then
  189.             ifFileExist = False
  190.             RememberMe.Checked = False
  191.         End If
  192.     End Sub
  193.  
  194.  
  195.     Private Sub pictureBox_PlayerHead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pictureBox_PlayerHead.Click
  196.  
  197.     End Sub
  198. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!