Option Explicit Dim Obj Dim str Set Obj = WScript.CreateObject("sComCrypt.sDES.1") Obj.SetKey7("Test") str = Obj.enCrypt("KGS!@#$%") WScript.Echo str Set Obj = Nothing |
Key | Data | Encrypted Data |
---|---|---|
(null) | KGS!@#$% | AA D3 B4 35 B5 14 04 EE |
D | KGS!@#$% | 4A 3B 10 8F 3F A6 CB AD(6D?) |
PASSWOR | KGS!@#$% | E5 2C AC 67 41 9A 99(9a?) 22 |
A | KGS!@#$% | 75 84 24 8B 8D 2C 9F 9F(9E?) |
YOSHIDA | KGS!@#$% | AD CA D2 97 22 F4 44 D1 |
NOMURA | KGS!@#$% | A4 F4 E6 5F 28 CB 98 DA |
KITAGAW | KGS!@#$% | 49 BC CA A4 50 54 D4 05 |
TAKIKUR | KGS!@#$% | CA 62 2B 9C A8 93 74 BE |
TEST | KGS!@#$% | 01 FC 5A 6B E7 BC 69 29 |