Piccolissimo ma essenziale lo script per la generazione di GUID. Basta prenderlo e copiarlo nel proprio componente, progetto e poi richiamarlo. Come valore di ritorno avremo la nostra GUID
Public Function CreateGUID() As String
Dim Guid As New Guid()
Return Guid.NewGuid.ToString
End Function
Scopri in questo breve ma utile script come criptare un testo sfruttando il framework
Private Function Encrypt(ByVal strText As String) As String
Dim Hash As New System.Security.Cryptography.SHA1Managed
Dim EncText As New System.Text.UnicodeEncoding
Dim HashResult As Byte() = Hash.ComputeHash(EncText.GetBytes(strText))
Return CType(System.Convert.ToBase64String(HashResult), String)
End Function
Se in ingresso fornisco la parola innovatel avrò come uscita
qXcI9D7ooZlvhDCB5n6rmzF8tck=
Commenti Recenti