Ⅰ 字符的加密和解密
创建3个文本框名称分别为:
txtCode 用于显示加密后的字符串
txtRecode 用于显示解密后的字符串
txtInput 用于输入要加密的字符串
创建3个按钮,名称分别为:
cmdcls 清屏
cmdcode 加密
cmdrecode 解密
Dim strInput$, Code$, Record$, c As String * 1
Dim i%, length%, iAsc%
Private Sub cmdcls_Click() '清屏
txtCode.Text = ""
txtRecode.Text = ""
txtInput.Text = ""
End Sub
Private Sub cmdcode_Click() '加密
Dim strInput$, Code$, Record$, c As String * 1
Dim i%, length%, iAsc%
strInput = txtInput.Text
length = Len(RTrim(strInput)) '去掉字符串右边的空格,求真正的长度
Code = ""
For i = 1 To length
c = Mid$(strInput, i, 1) '取第i个字符
Select Case c
Case "A" To "Z" '大写字母加序数5加密
iAsc = Asc(c) + 5
If iAsc > Asc("Z") Then iAsc = iAsc - 26 '加密后字母超过Z
Code = Code + Chr$(iAsc)
Case "a" To "z"
iAsc = Asc(c) + 5 '小写字母加序数5加密
If iAsc > Asc("z") Then iAsc = iAsc - 26
Code = Code + Chr$(iAsc)
Case Else '当第i个字符为其它字符时不加密,与加密字符串的前i-1个字符连接
Code = Code + c
End Select
Next i
txtCode.Text = Code '显示加密后的字符串
End Sub
Private Sub cmdrecode_Click() '解密与加密正好逆处理
Code = txtCode.Text
i = 1
recode = ""
length = Len(RTrim(Code)) '若还未加密,不能解密,出错
If length = 0 Then J = MsgBox("先加密再解密", 48, "解密出错")
Do While (i <= length)
c = Mid$(Code, i, 1)
If (c >= "A" And c <= "Z") Then
iAsc = Asc(c) - 5
If iAsc < Asc("A") Then iAsc = iAsc + 26
recode = Left$(recode, i - 1) + Chr$(iAsc)
ElseIf (c >= "a" And c <= "z") Then
iAsc = Asc(c) - 5
If iAsc < Asc("a") Then iAsc = iAsc + 26
recode = Left$(recode, i - 1) + Chr$(iAsc)
Else
recode = Left$(recode, i - 1) + c
End If
i = i + 1
Loop
txtRecode.Text = recode
End Sub
Ⅱ 哪位大侠知道40个字符加密的要用哪个解密程序
那就要看你用什么加密算法了，用相应的解密密匙就行了
Ⅲ 48位密文是什么加密算法
加密通常分为两大类：“对称式”和“非对称式”。
对称式加密就是加密和解密使用同一个密钥，非对称式加密就是加密和解密所使用的不是同一个密钥。
如果是对称是加密那么破解就容易，如果算法在dll文件里通过Reflector之类的反编译工具轻松破解
但是现在许多用的是非对称性加密，那么就算dll有加密算法也没有解密的算法，它是通过加密后直接验证
也就是无法获取原有的密码.
Ⅳ 如何破解48位加密字符串
http://tieba..com/p/2834307238?pid=45017690755&cid=0#45017690755
希望有时间看看这个，也是当时破解了很久
Ⅳ 那个QQ链接48位加密使用的是什么加密算法
除了问腾讯内部人员其他人估计都不知道吧！
算法肯定是腾讯自己弄出来的，要那么容易被破解那么3Q大战中腾讯早被干死了！
我去年去过很多专业论坛都找了也没找到！不过我的目的只是为了知道那个加密前的qq号码！你要是想知道这个怎么获取的话我倒是可以告诉你：你点开那个陌生人链接后在个人资料下面有个和TA聊天，点击后会出来QQ对话框，那么TA的QQ号也会在最上方显示！
其他的你只有找到专业的密码破解人员来做了！
Ⅵ QQ在线状态生成的代码，其中有一项安全加密，生成一段加密后的代码，48位的。求它的加密方式，如何破解
我勒个去，你去SHI，
Ⅶ 朋友网48位hash破解
是这个了，20去掉7去掉1160去掉2 ，