马哥,能不能提供一下DES的加解密模块

purana

<p>md5的我有了.可是就找不到DES的..</p><p>网上找到的..基本上用不了.马哥.能不能提供一下.</p>

马大哈

<p>Sub Main()<br/>&nbsp;&nbsp;&nbsp; Dim I As New cDES<br/>&nbsp;&nbsp;&nbsp; Dim tmpArr1() As Byte, tmpArr2() As Byte, tmpArr3() As Byte<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; tmpArr1 = StrConv("<a href="http://www.m5home.com">www.m5home.com</a>", vbFromUnicode)<br/>&nbsp;&nbsp;&nbsp; I.SetKey tmpArr1<br/>&nbsp;&nbsp;&nbsp; I.SetKey1 tmpArr1<br/>&nbsp;&nbsp;&nbsp; I.SetKey2 tmpArr1<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; tmpArr2 = StrConv("要加密的内容", vbFromUnicode)<br/>&nbsp;&nbsp;&nbsp; I.Encrypt3Des_ArrToArr tmpArr2, tmpArr3<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; I.Encrypt3Des_ArrToArr tmpArr3, tmpArr2, 2<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Debug.Print StrConv(tmpArr2, vbUnicode)<br/>End Sub </p><p>加上那个类,就可以了</p>

马大哈

<p>你看看这个:</p>http://www.m5home.com/bbs/viewthread.php?tid=1448

purana

<p>ok,谢谢了.</p><p>不过我已经将字符串都转换成byte数组了,不过调用时还是提示我类型不匹配.</p><p>能不能再写写.怎么调用法?</p>

马大哈

<p>好的.</p><p>不过我今天在买去江西的票了,在到江西之前都不会再上网,你只能等两天了,呵呵</p>

purana

ok..没问题.到时记住帮我写写.

马大哈

好的!