Microsoft Small Basic

Program Listing: QQNW492.000

List Program

main()

Sub main
TextWindow.Hide()
' The following line could be harmful and has been automatically commented.
' path = LDDialogs.InputBox("Get a MD5 hash of a file. Use 'dialog' to open a file selection dialog instead.", "Hash Retriever")
If path = "dialog" Then
getFile = LDDialogs.OpenFile("All files (*.*)|*.*", "")
retrievedHash = LDEncryption.MD5HashFile(getFile)
showHash()
Else
retrievedHash = LDEncryption.MD5HashFile(path)
showHash()
EndIf
EndSub

Sub showHash
TextWindow.Hide()
TextWindow.Title = ""
TextWindow.Show()
TextWindow.WriteLine("MD5 Hash: "+retrievedHash)
TextWindow.Write("Retrieve another hash? (Y/N) ")
getYorN = TextWindow.Read()
If getYorN = "y" Then
main()
ElseIf getYorN = "n" Then
Program.End()
EndIf
EndSub