根据密码表写个加密解密函数（谁来试试，就当练手了，有奖）

rho123

===========================
论坛现在人气不错哈，谁来试试这个，嘿嘿
写的好有奖励。

这个是我写的，研究了半天。。哈哈
===========================

[ 本帖最后由 rho123 于 2008-5-7 17:55 编辑 ]

gooker

加密：同位数上明文变密文？
解密：同位数上密文变明文？

可以用来做什么？

pcbar

我来试试:

Global $a[11]
$a[0] = '2345678ab1'
$a[1] = 'xyzuvwopqZ'
$a[2] = 'ST9012345R'
$a[3] = 'FGHIJKLMNE'
$a[4] = '2345678ab1'
$a[5] = 'UVWXYZxyzn'
$a[6] = 'qrstOPQRSp'
$a[7] = '12345678a0'
$a[8] = 'HIJKLMNfgG'
$a[9] = 'BCDEFGHIJA'
$a[10] = '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

rho123

哈哈，不错，很简洁啊。。。多长时间完成啊，我都搞了半天

gooker 你还没看明白啊，都来试试啊。。

[ 本帖最后由 rho123 于 2008-5-7 22:52 编辑 ]

mfknui

不明白有什么用

跨日

好贴不顶白不顶