ute;DES加解密算法实现 vb版 v1.0´´作者: agamem´日期: 2003年08月27日´´´Option ExplicitPrivate Declare Sub CopyMemory Lib \"kernel32\" Alias \"RtlMoveMemory\" (Dest... [阅读全文]

ute;sCode 待加密字串´sKey 密钥字串(前8位有效)Public Sub DES_Encode(ByRef sCode As Byte, ByVal sKey As String, ByRef bReturn As Byte)Attribute DES_Encode.VB_Description = \"加密 sCode:明文16进制串 ... [阅读全文]

sp; ´sCode 待解密字串 ´sKey 密钥字串 Public Sub DES_Decode(ByRef sCode As Byte, ByVal sKey As String, ByRef bReturn As Byte)Attribute DES_Decode.VB_Description = \"解密 sCode:密文16进制... [阅读全文]

unituCompress; erface uses Windows,Messages,SysUtils,Variants,Classes,ComCtrls,Dialogs; //压缩/解压文件 procedureCompressFile(Source,Target:String);stdcall; procedureDecompressFile(Source,... [阅读全文]