-
Topic
-
Hi,
I try to use utilities.DESEncrytion method and
the result looks very strange.Here is the code:
sPlain = "this is just an example"
iHighKey = 0
iLowKey = 0
sEncrypt = utilities.DESEncryption(fEncrypt, iHighKey, iLowKey, sPlain)
sDecrypt = utilities.DESEncryption(fDecrypt, iHighKey, iLowKey, sEncrypt)
sEncrypt2 = utilities.DESEncryption(fDecryfEncryptpt, iHighKey, iLowKey, sDecrypt)
utilities.ToClipBoard("sPlain = " & sPlain & vbCrLf & "sEncrypt = " & sEncrypt & vbCrLf & "sDecrypt = " & sDecrypt & vbCrLf)
Output of it is:
sPlain = this is just an example
sEncrypt = ø°Ç€ˆ¹—ëûMÒïö¢å«š
—ƒÚûb
sDecrypt = this is just an exampleÀf6w"(B~
The decrypted message contains indeed the clear text one but is padded with some weird stuff.
Also changing the 2 keys values to iHighKey = 12345 and iLowKey = 1234 gives a completely unexpected result:
sPlain = this is just an example
sEncrypt = K¸G‹ÖÉùB‹ _µHAmôÏæ“ "
sDecrypt = "/m!ǘ-µkó<B–Nè
Û
_AŸßª
Can you please tell me how I vcan make effective use of this method?
Thanks,
Eugen!
Viewing 1 replies (of 1 total)
- You must be logged in to reply to this topic.