Android Question Hashing password through B4A

Sub hashing
    Dim data(0) As Byte
    Dim md As MessageDigest
    Dim Bconv As ByteConverter
    Dim msg As String
    msg = EditTextPassword.Text
    data = Bconv.StringToBytes(msg, "UTF8")
    data = md.GetMessageDigest(data, "SHA-1")
End Sub

Sub CalcHashAsBase64 (Text As String) As String
    Dim md As MessageDigest
    Dim data() As Byte = md.GetMessageDigest(Text.GetBytes("UTF8"), "SHA-1")
    Dim su As StringUtils
    Return su.EncodeBase64(data)
End Sub