我想调用Windows自带的加密函数挺好的,水平也高,又不要考虑加密细节,具体你查Windows
的 API
的 API
解决方案 »
- VB6中如何修改StatusBar中文字的字体及颜色呢?
- vb.net中怎样获取日期中的年月日时分秒
- vb中有没有类变量,就是直接通过ClassName. 来访问,而不用通过其实例对象来访问?
- 用vb跟access97做的系统在winxp下有问题呀! 该如何解决呢??? 555555555
- mschar打印问题!急!!!
- 如何动态创建Label标签?
- DISTINCT是刎除重复行,如果要刎除其中一个字段重复的记录,要怎么做?
- 求职vb系统开发
- 为什么画在程序上的圆会在缩小窗口后消失?
- 我的VB:请教各位大虾如何在 DataReport 中实现横向字段动态增加显示
- 怎样取得网卡序列号 ?
- 请教高手,关于FOXMAIL的事情
用最简单的,随便找个字符与要加密的字符串挨个做异或。反之亦然
'用户口令加密
Dim il_bit, il_x, il_y, il_z, il_len, i As Long
Dim is_out As String
il_len = LenB(password)
il_x = 0
il_y = 0
is_out = ""
For i = 1 To il_len
il_bit = AscB(MidB(password, i, 1)) 'b系列支持中文
il_y = (il_bit * 13 Mod 256) + il_x
is_out = is_out & ChrB(Fix(il_y)) '取整 int和fix区别: fix修正负数
il_x = il_bit * 13 / 256
Next
is_out = is_out & ChrB(Fix(il_x))
password = is_out
il_len = LenB(password)
il_x = 0
il_y = 0
is_out = ""
For i = 1 To il_len
il_bit = AscB(MidB(password, i, 1))
'取前4位值
il_y = il_bit / 16 + 64
is_out = is_out & ChrB(Fix(il_y))
'取后4位值
il_y = (il_bit Mod 16) + 64
is_out = is_out & ChrB(Fix(il_y))
Next
UserCode = is_out
End Function
Function UserDeCode(password As String) As String
'口令解密
Dim is_out As String
Dim il_x, il_y, il_len, i, il_bit As Long il_len = LenB(password)
il_x = 0
il_y = 0
is_out = ""
For i = 1 To il_len Step 2
il_bit = AscB(MidB(password, i, 1))
'取前4位值
il_y = (il_bit - 64) * 16
'取后4位值
'dd = AscW(Mid(password, i + 1, 1)) - 64
il_y = il_y + AscB(MidB(password, i + 1, 1)) - 64
is_out = is_out & ChrB(il_y)
Next il_x = 0
il_y = 0
password = is_out
is_out = "" il_len = LenB(password)
il_x = AscB(MidB(password, il_len, 1))
For i = (il_len - 1) To 1 Step -1
il_y = il_x * 256 + AscB(MidB(password, i, 1))
il_x = il_y Mod 13
is_out = ChrB(Fix(il_y / 13)) & is_out
Next
UserDeCode = is_out
End Function
'***************************************************
' 此函数的作用为加密字符串
' PassStr:欲加密的字符串
' PassWord:密匙
'***************************************************
Public Function EncryptStr(mvarStr, mvarKey) As String '口令加密
Dim strChar As String * 1
Dim keyChar As String * 1
Dim encryptedChar As Integer
Dim i As Integer
If mvarStr = "" Then '输入口令为空
EncryptStr = mvarKey
Else
EncryptStr = ""
For i = 1 To Len(mvarStr)
strChar = Mid(mvarStr, i, 1)
keyChar = Mid(mvarKey, (i Mod Len(mvarKey)) + 1)
encryptedChar = Asc(strChar) Xor Asc(keyChar)
EncryptStr = EncryptStr + Chr(encryptedChar)
Next
End If
End FunctionPublic Function PassProc(PassStr As String, PassWord As String) As String
'***************************************************
' 此函数的作用为加密字符串
' PassStr:欲加密的字符串
' PassWord:密匙
'***************************************************
Dim PassStrLen As Long
Dim PassWordLen As Long
Dim i As Long
Dim j As Long
Dim TPassW As String
Dim TPassS As String
Dim Tstr As String
Dim temp As Long
If PassStr = "" Or PassWord = "" Then
PassProc = ""
Exit Function
End If
Tstr = ""
PassStrLen = Len(PassStr)
PassWordLen = Len(PassWord)
i = 1
Do While i <= PassStrLen
For j = 1 To PassWordLen
If i > PassStrLen Then Exit For
TPassS = Mid(PassStr, i, 1)
TPassW = Mid(PassWord, j, 1)
Tstr = Tstr + Chr(Asc(TPassS) Xor Asc(TPassW))
i = i + 1
Next j
Loop
PassProc = Tstr
End Function
Function UserCode(password As String) As String
'用户口令加密
Dim il_bit, il_x, il_y, il_z, il_len, i As Long
Dim is_out As String
il_len = Len(password)
il_x = 0
il_y = 0
is_out = ""
For i = 1 To il_len
il_bit = AscW(Mid(password, i, 1)) 'W系列支持unicode
il_y = (il_bit * 13 Mod 256) + il_x
is_out = is_out & ChrW(Fix(il_y)) '取整 int和fix区别: fix修正负数
il_x = il_bit * 13 / 256
Next
is_out = is_out & ChrW(Fix(il_x))
password = is_out
il_len = Len(password)
il_x = 0
il_y = 0
is_out = ""
For i = 1 To il_len
il_bit = AscW(Mid(password, i, 1))
'取前4位值
il_y = il_bit / 16 + 64
is_out = is_out & ChrW(Fix(il_y))
'取后4位值
il_y = (il_bit Mod 16) + 64
is_out = is_out & ChrW(Fix(il_y))
Next
UserCode = is_out
End Function
Function UserDeCode(password As String) As String
'口令解密
Dim is_out As String
Dim il_x, il_y, il_len, i, il_bit As Long il_len = Len(password)
il_x = 0
il_y = 0
is_out = ""
For i = 1 To il_len Step 2
il_bit = AscW(Mid(password, i, 1))
'取前4位值
il_y = (il_bit - 64) * 16
'取后4位值
'dd = AscW(Mid(password, i + 1, 1)) - 64
il_y = il_y + AscW(Mid(password, i + 1, 1)) - 64
is_out = is_out & ChrW(il_y)
Next il_x = 0
il_y = 0
password = is_out
is_out = "" il_len = Len(password)
il_x = AscW(Mid(password, il_len, 1)) For i = (il_len - 1) To 1 Step -1
il_y = il_x * 256 + AscW(Mid(password, i, 1))
il_x = il_y Mod 13
is_out = ChrW(Fix(il_y / 13)) & is_out
Next
UserDeCode = is_out
End Function