VBS nach VB

[kpeter]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallöchen allerseits

hätte mal ein dummes Problem
kann mir einer sagen wie ich das von vbs in vb übersetzen kann

Function hash_sha256( StringToHash, KeyForHash )
        Dim sha256, ObjUTF8, hmac
        ObjUTF8 = createobject("System.Text.UTF8Encoding")
        sha256 = createobject("system.security.cryptography.HMACSHA256")
        sha256.Key = ObjUTF8.GetBytes_4(KeyForHash)
        hmac = sha256.ComputeHash_2(ObjUTF8.GetBytes_4(StringToHash))
        sha256.Clear()
        hash_sha256 = LCase(a)
End Function

in der system.security.cryptography gibt es denn getbytes_4 nicht mehr wie kann ich das sonst noch machen