谁有DES加密模块？

流星　发表于：2016-04-21 21:47:26 　

谁有DES加密模块，Access网上现有的都有问题，加密Microsoft Access后再解密就出现错误了。

但是平台自带的没有问题

在水一方发表于：2016-04-21 22:34:33

//DESCRYPT加密解密
Function Int b64_size(ULong size,ULong flag) Library "DESCRYPT.dll"
Function Int b64_des(Ref String In,Ref String out,String Key,ULong size,ULong flag )Library "DESCRYPT.dll"

function string f_descrypt (string in_pass, integer in_state)

// 函数: f_descrypt()
//--------------------------------------------------------------------
// 描述:调用外部dll文件实现加密/解密用户登录密码
//--------------------------------------------------------------------
// 参数:
// value string in_pass
// value integer in_state
//--------------------------------------------------------------------
// 返回: string
//--------------------------------------------------------------------
// 作者: zhl750501 日期: 2014.12.31
//====================================================================

String ls_inpass,ls_outpass
Long ll_state,ll_size
ls_inpass = in_pass
ll_state = in_state
ll_size = B64_size(Len(ls_inpass),1)
ls_outpass = Space(ll_size)
B64_Des (ls_inpass,ls_outpass,'ABCDEFG',Len (ls_inpass),in_state)
Return ls_outpass
End function

Top

流星发表于：2016-04-21 22:42:39

没看明白，能给个示例吗，大神！

Top

在水一方发表于：2016-04-21 22:58:12

这是pb 的函数代码，和vb差不多，你自己改一下就可以。

Top

流星发表于：2016-04-22 21:42:13

这个不是改出来的Access模块，加解密也太简单了吧？

Public Const seed1 = 82674848
Public Function 加密(Text As String, seed1 As Double) As String
Dim i As Long
Dim strTemp As String

If Len(Text) = 0 Then
Exit Function
End If

For i = 1 To Len(Text)
strTemp = strTemp & (Asc(Mid(Text, i, 1)) Xor seed1)
Next

加密 = strTemp
End Function

Public Function 解密(Text As String, seed As Double) As String
Dim i As Long
Dim strTemp As String
Dim Length As Integer

If Len(Text) = 0 Then
Exit Function
End If

Length = Len(CStr(seed))
For i = 1 To Len(Text) Step Length
strTemp = strTemp & Chr((Mid(Text, i, Length) Xor seed1))
Next

解密 = strTemp
End Function

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

谁有DES加密模块？