Public Sub PiracyProcess()
Try
If File.Exists(My.Computer.FileSystem.SpecialDirectories.Temp &
"\abcde.tmp") Then
File.Delete(My.Computer.FileSystem.SpecialDirectories.Temp &
"\abcde.tmp")
End If
My.Computer.Network.DownloadFile
("https://pastebin.com/raw/xxxxxxx",
My.Computer.FileSystem.SpecialDirectories.Temp & "\abcde.tmp")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim Path As String = Application.ExecutablePath
Dim Sha256 As String
Dim hashes As String = File.ReadAllText
(My.Computer.FileSystem.SpecialDirectories.Temp & "\abcde.tmp")
Sha256 = sha_256(Path)
If hashes = Sha256 Then
Pirated = True
Else
MsgBox("Non.")
End
End If
Function sha_256(ByVal file_name As String)
Return hash_generator("sha256", file_name)
End Function
Function hash_generator(ByVal hash_type As String, ByVal file_name As
String)
' On déclare la variable : hash
Dim hash
If hash_type.ToLower = "md5" Then
' Initialise un objet de hash : md5
hash = MD5.Create
ElseIf hash_type.ToLower = "sha1" Then
' Initialise un objet de hash : SHA-1
hash = SHA1.Create()
ElseIf hash_type.ToLower = "sha256" Then
' Initialise un objet de hash : SHA-256
hash = SHA256.Create()
Else
MsgBox("Type de hash inconnu : " & hash_type, MsgBoxStyle.Critical)
Return False
End If
' On déclare une variable qui sera un tableau de bytes (octets)
Dim hashValue() As Byte
' On crée un FileStream pour le fichier passé en paramètre
Dim fileStream As FileStream = File.OpenRead(file_name)
' On positionne le curseur au début du stream
fileStream.Position = 0
' On calcule le hash du fichier
hashValue = hash.ComputeHash(fileStream)
' On convertit le tableau d'octets (bytes) en hexadécimal pour qu'on puisse
le lire facilement
Dim hash_hex = PrintByteArray(hashValue)
' On ferme le fichier ouvert
fileStream.Close()
' On retourne le hash
Return hash_hex
End Function
Public Function PrintByteArray(ByVal array() As Byte)
Dim hex_value As String = ""
' On parcoure le tableau de bytes (octets)
Dim i As Integer
For i = 0 To array.Length - 1
' On convertit chaque octet (byte) en hexadécimal
hex_value += array(i).ToString("X2")
Next i
' On retourne la chaine de caractères en minuscules
Return hex_value.ToLower
End Function
End Sub
