Ⅰ 字元的加密和解密
創建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 ，