[求助]字符串加密ASCII解密转换为原始字符的代码

user11

某个程序将acsii进行转换了，正常的字符的16进制ascii，转换成加密后的ascii，

我知道转换规律， 将加密的ascii转换回成正常的ascii值 ???求高手指点，谢谢

自己写了个，不知道，有什么更简洁的写法。

$char="732971286A5C7E27617C545F455A457E5E7F575A6725787C5B566A7272595B4258555E7E205974555E644544245324"
$ok="c9a8zLn7qlDOUJUnNoGJw5hlKFzbbIKRHENn0IdENtUT4C4"
$zq=""
 
For $i=1 To StringLen($char)/2 Step 1
  $zqx=$zq;
;~         $xs=StringMid($char,$i*2-1,2)&" 标准  "&StringMid($ok,$i,1) 

 If Dec(StringMid($char,$i*2-1,2)) >31 And  Dec(StringMid($char,$i*2-1,2)) < 75 Then
          $zq=Chr(Dec(StringMid($char,$i*2-1,2))+16) 
 ElseIf Dec(StringMid($char,$i*2-1,2)) >95 And  Dec(StringMid($char,$i*2-1,2)) < 107 Then         
         $zq=Chr(Dec(StringMid($char,$i*2-1,2))+16) 
 Else         
        $zq=Chr(Dec(StringMid($char,$i*2-1,2))-16)
        
EndIf
;~ MsgBox(0,$i,$xs&"  解密= "&$zq,1)
  $zq=$zqx&$zq
Next
MsgBox(0,0,$ok&@CRLF&$zq)

原        原ASCII        密  原   十进制ASCII        
a        61        71        a        97        
b        62        72        b        98        
c        63        73        c        99        
d        64        74        d        100        
e        65        75        e        101        
f        66        76        f        102        
g        67        77        g        103        
h        68        78        h        104        
i        69        79        i        105        
j        6a        7A        j        106        
k        6b        7B        k        107        
l        6c        7C        l        108        
m        6d        7D        m        109        
n        6e        7E        n        110        
o        6f        7F        o        111        
p        70        60        p        112        
q        71        61        q        113        
r        72        62        r        114        
s        73        63        s        115        
t        74        64        t        116        
u        75        65        u        117        
v        76        66        v        118        
w        77        67        w        119        
x        78        68        x        120        
y        79        69        y        121        
z        7a        6A        z        122        
A        41        51        A        65        
B        42        52        B        66        
C        43        53        C        67        
D        44        54        D        68        
E        45        55        E        69        
F        46        56        F        70        
G        47        57        G        71        
H        48        58        H        72        
I        49        59        I        73        
J        4a        5A        J        74        
K        4b        5B        K        75        
L        4c        5C        L        76        
M        4d        5D        M        77        
N        4e        5E        N        78        
O        4f        5F        O        79        
P        50        40        P        80        
Q        51        41        Q        81        
R        52        42        R        82        
S        53        43        S        83        
T        54        44        T        84        
U        55        45        U        85        
V        56        46        V        86        
W        57        47        W        87        
X        58        48        X        88        
Y        59        49        Y        89        
Z        5a        4A        Z        90        
0        30        20        0        48        
1        31        21        1        49        
2        32        22        2        50        
3        33        23        3        51        
4        34        24        4        52        
5        35        25        5        53        
6        36        26        6        54        
7        37        27        7        55        
8        38        28        8        56        
9        39        29        9        57        

nofindx

没看明白你的这个表 想表达的规律
所以以 小写字母“a”举例 ，你进行反推即可

Local $a = "a" ;初始值 -- a
Local $Asc_a = Asc($a)  ;  ASCII 码 -- 97
Local $Hex_a = Hex($Asc_a) ; 十六进制 -- 00000061
Local $A = $Hex_a + 10 ; 所谓的转换规律？ -- 71

xlj310

真心没明白什么意思  Ascii对应表百度一下便知