论坛 › 已解决问题区 › 一个函数的逆运算[已解决]

傻瓜蛋 发表于 2012-2-27 10:22:00

一个函数的逆运算[已解决]

本帖最后由 傻瓜蛋 于 2012-2-27 12:26 编辑

如题，我有一个函数，我用参数"545654"，经过函数SETS()得到结果“TVT”。
我想写个函数能和下面的函数做成逆运算。要求新函数我输入“TVT”，得到结果就是“545654”
本人新手，请高手指点

$x = SetS("545654")
MsgBox(0,"", $x)
Func SetS($a)
        Local $b
        For $i = 1 To StringLen($a) Step 2
                $b &= Chr(Dec(StringMid($a, $i, 2)))
        Next
        Return $b
EndFunc

user3000 发表于 2012-2-27 10:38:11

晕, 这不是类似于加密和解密的算法吗,
自己设计自己的!

afan 发表于 2012-2-27 11:18:39

$x = SetS(545654)
MsgBox(0, $x, GetS($x))

Func SetS($a)
        Local $b
        For $i = 1 To StringLen($a) Step 2
                $b &= Chr(Dec(StringMid($a, $i, 2)))
        Next
        Return $b
EndFunc   ;==>SetS

Func GetS($str)
        Local $s = ''
        For $i = 1 To StringLen($str)
                $s &= Hex(Asc(StringMid($str, $i, 1)), 2)
        Next
        Return $s
EndFunc   ;==>GetS

傻瓜蛋 发表于 2012-2-27 12:26:07

谢谢版主，我先好好研究一下。

afan 发表于 2012-2-27 12:28:07

谢谢版主，就15分全给你了！   金钱 + 15 块

    评分不会扣自己的，是系统分配的，难得你这么大方 ^ ^

查看完整版本: 一个函数的逆运算[已解决]