Dim userid As String Dim encrypted As String Dim cked As Boolean
userid = "xcodex" encrypted = Crypt.md5(userid, "abcdefgh") cked = Crypt.Check(userid, encrypted) Print cked On 2017-08-24 06:14 PM, mikeB wrote:
userid = "xcodex" Crypt.MD5(userid, "abcdefgh") cked = Crypt.Check(userid, "abcdefgh") Message.Info(cked)
------------------------------------------------------------------------------ Check out the vibrant tech community on one of the world's most engaging tech sites, Slashdot.org! http://sdm.link/slashdot _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user