Hvordan lage en sjekksum av tekst i en VBA-modul

Sjekksummen kommandoen brukes til å beregne et program bruk av "1s" og "0s." Dette er den mest grunnleggende bruk av binær kode. Når et program er bygd opp av binær kode, kan kontrollsummen komme godt med for feilsøking kodene. Hvis du skriver i binær kode gjennom Visual Basic-programmet, kan du kjøre en sjekksum med litt stresset ved å bruke noen få kommandoer.

Bruksanvisning

1 Last programmet du vil kjøre sjekksummen for i Visual Basic.

2 Skriv inn følgende i toppen av koden:

"Import System.IO
Importen System.Security.Cryptography "

3 Bla ned til "Class Body" segmentet av programmet. Skriv inn denne koden inn i klassen kroppen:

"Private Delt Funksjon GetChecksum (fil som String) som String
Ved hjelp av strøm som Filestream = File.OpenRead (fil)
Dim sha som SHA256Managed = Ny SHA256Managed ()
Dim sjekksum som byte [] = sha.ComputeHash (stream)
Return BitConverter.ToString (kontrollsum) .Sett ( "-", String.Empty)
Slutt å bruke
End Function "

4 Rull ned til bunnen av programmet, og skriv inn følgende i koding:

"Dim checksumValue som String = YourClassName.GetChecksum (" C: \ bane \ til \ file.ext ")"

5 Trykk "Enter" for å eksportere checksum tekst.