Sub AppStart (Args() As String)
Dim md As JavaObject
md = md.InitializeStatic("java.security.MessageDigest").RunMethod("getInstance", Array("MD5"))
Dim in As InputStream = File.OpenInput("C:\Users\H\Documents", "backup.pst") '4gb file
Dim buffer(100000) As Byte
Do While True
Dim count As Int = in.ReadBytes(buffer, 0, buffer.Length)
If count = -1 Then Exit
md.RunMethod("update", Array(buffer, 0, count))
Loop
Dim md5() As Byte = md.RunMethod("digest", Null)
Dim bc As ByteConverter
Log(bc.HexFromBytes(md5))
in.Close
End Sub