Dim ret As String = "AA987757F3616BE098E2BBCD2EFACE43" For Each a As Byte In somme If a < 16 Then ret &= "0" + a.ToString("X") Else ret += a.ToString("X") End If Next
Dim poney As String = "AA987757F3616BE098E2BBCD2EFACE43" For Each a As Byte In somme If a < 16 Then poney &= "0" + a.ToString("X") Else poney += a.ToString("X") End If Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim poney As String For Each a As Byte In somme If a < 16 Then ret &= "0" + a.ToString("X") Else ret += a.ToString("X") End If Next
Public Shared Function MD5(ByVal file As String) As String If System.IO.File.Exists("D:\Jeux\Test\test.img") Then Dim st As System.IO.FileStream = Nothing Try Dim check As System.Security.Cryptography.MD5CryptoServiceProvider st = System.IO.File.Open("D:\Jeux\Test\test.img", System.IO.FileMode.Open, System.IO.FileAccess.Read) check = New System.Security.Cryptography.MD5CryptoServiceProvider() Dim somme As Byte() = check.ComputeHash(st) Dim ret As String For Each a As Byte In somme If a < 16 Then ret &= "0" + a.ToString("X") Else ret += a.ToString("X") End If Next Return ret Catch Throw Finally If Not st Is Nothing Then st.Close() End If End Try Else Throw New System.IO.FileNotFoundException("Fichier non trouvé.", file) End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jouer.Click Dim poney As String = MD5("D:\Jeux\Test\test.img") If poney = "AA987757F3616BE098E2BBCD2EFACE43" Then End If Dim Apath As String Dim Aname As String Aname = _ System.Reflection.Assembly.GetExecutingAssembly. _ GetModules()(0).FullyQualifiedName Apath = System.IO.Path.GetDirectoryName(Aname) If Not FileIO.FileSystem.FileExists("test.exe") Or Not FileIO.FileSystem.FileExists("---") Or Not FileIO.FileSystem.FileExists("---") Then MsgBox("---") ElseIf FileIO.FileSystem.FileExists((Apath & "\imgtest1.img")) Then FileSystem.Kill((Apath & "\imgtest1.img")) End If If FileIO.FileSystem.FileExists((Apath & "\imgtest2.img")) Then FileSystem.Kill((Apath & "\imgtest2.img")) End If Registry.SetValue("HKEY_CURRENT_USER\Software\test1", "Playertest", TextBox1.Text) Shell("test.exe serveur:1111")
Dim ret As String For Each a As Byte In somme If a < 16 Then ret &= "0" + a.ToString("X") Else ret += a.ToString("X") End If Next
Public Shared Function MD5(ByVal file As String) As String If System.IO.File.Exists("D:\Jeux\image\imgtest.img") Then Dim st As System.IO.FileStream = Nothing Try Dim check As MD5CryptoServiceProvider = New MD5CryptoServiceProvider() st = IO.File.Open(file, IO.FileMode.Open, IO.FileAccess.Read) Dim somme As Byte() = check.ComputeHash(st) Catch End Try End If End Function
Public Shared Function MD5(ByVal file As String) As String If System.IO.File.Exists("D:\Jeux\image\imgtest.img") Then Dim st As System.IO.FileStream = Nothing Try Dim check As MD5CryptoServiceProvider = New MD5CryptoServiceProvider() st = IO.File.Open(file, IO.FileMode.Open, IO.FileAccess.Read) Dim somme As Byte() = check.ComputeHash(st) Dim ret As String = "" For Each a As Byte In somme If a < 16 Then ret &= "0" + a.ToString("X") Else ret += a.ToString("X") End If Next Return ret Catch Throw Finally If Not st Is Nothing Then st.Close() End If End Try Else Throw New System.IO.FileNotFoundException("Fichier non trouvé.", file) End If End Function