根据密码表写个加密解密函数（谁来试试，就当练手了，有奖）
===========================
论坛现在人气不错哈，谁来试试这个，嘿嘿
写的好有奖励。
这个是我写的，研究了半天。。哈哈
===========================
[ 本帖最后由 rho123 于 2008-5-7 17:55 编辑 ] 加密：同位数上明文变密文？
解密：同位数上密文变明文？
可以用来做什么？ 我来试试:Global $a
$a = '2345678ab1'
$a = 'xyzuvwopqZ'
$a = 'ST9012345R'
$a = 'FGHIJKLMNE'
$a = '2345678ab1'
$a = 'UVWXYZxyzn'
$a = 'qrstOPQRSp'
$a = '12345678a0'
$a = 'HIJKLMNfgG'
$a = 'BCDEFGHIJA'
$a = 'qrstOPQRSp'
While 1
$InputBox = InputBox("加/解密 by pcbar", "请输入需进行加/解密的字符串:", "12345678901", " M11", "-1", "130", "-1", "-1")
Select
Case @error = 0 ;OK - The string returned is valid
If StringLen($InputBox) <> 11 Then
MsgBox(0, "--", "字符长度不符要求！")
ContinueLoop
EndIf
If StringIsDigit($InputBox) Then
jiami($InputBox)
Else
jiemi($InputBox)
EndIf
Case @error = 1 ;The Cancel button was pushed
Exit
Case @error = 3 ;The InputBox failed to open
Exit
EndSelect
WEnd
Func jiami($x)
Local $b
For $i = 0 To 10
$b &= StringMid($a[$i], StringMid($x, $i + 1, 1) + 1, 1)
Next
ClipPut($b)
MsgBox(0, "完成", "字符串 " & $x & " 加密为 " & $b & " ,密文已存入剪贴板.")
EndFunc ;==>jiami
Func jiemi($y)
Local $b, $t
For $i = 0 To 10
$t = StringInStr($a[$i], StringMid($y, $i + 1, 1), 1)
If $t = 0 Then
MsgBox(0, "--", "密文输入有误！")
Return
EndIf
$b &= $t - 1
Next
ClipPut($b)
MsgBox(0, "完成", "字符串 " & $y & " 解密为 " & $b & " ,明文已存入剪贴板.")
EndFunc ;==>jiemi
回复 3# pcbar 的帖子
哈哈，不错，很简洁啊。。。多长时间完成啊，我都搞了半天 :face (37):gooker 你还没看明白啊，都来试试啊。。
[ 本帖最后由 rho123 于 2008-5-7 22:52 编辑 ] 不明白有什么用 好贴不顶白不顶
页:
[1]