Copia e incolla le seguenti istruzioni Imports nella parte superiore del file che contiene la classe con la quale si desidera ottenere il checksum :
Importazioni System.IOImports System.Security . crittografia
2
Copia e incolla il seguente funzione nel corpo della classe :
privata condivisa getchecksum Function (file come stringa) come StringUsing flusso come FileStream = File.OpenRead (file ) Dim sha come SHA256Managed = New SHA256Managed ( ) Dim checksum come byte [ ] = sha.ComputeHash (stream ) BitConverter.ToString Return ( checksum ) Sostituire ( " - " , String.Empty ) . End Function UsingEnd
3
Chiamare la funzione di checksum con il seguente codice : Dim
checksumValue as String = YourClassName.GetChecksum ( " C : \\ path \\ to \\ file.ext " ) economici
Programmazione © www.354353.com