高手请进，写一段代码

[taih]

需要写一段字符串加密代码
1.要对0至9数字进行转换
2.要对a至z 26个小写字母进行转换
3.要对A至Z 26个大写字母进行转换
4.其它字符保持原样不变
5.数字及字母对应表如下：
原字符 0123456789 a至z A至Z
对应字符 EAhfk91sQe 8VptI57XNYqM2KnUo03FJWjlrv DLPZZxymHSbdgOG4uRcCwzB6ai

比如字符串 1a2$8 经过转换后应该是 A8h$Q

请高手帮忙写这样的转换代码

[一把编程的菜刀]

你真会想，这么一个算法让人帮你写，不知道要伤多少脑细胞了！

[oywkkai]

这要掉多少头发啊

[落日听风]

少活一年

[hookee]

Function enc(s)
    Dim sNum, sLow, sUp, t
    Dim iNum0, iNum9, iLowA, iLowZ, iUpA, iUpZ, i, iAsc
    
    sNum    = "EAhfk91sQe"
    sLow    = "8VptI57XNYqM2KnUo03FJWjlrv"
    sUp     = "DLPZZxymHSbdgOG4uRcCwzB6ai"
    iNum0   = Asc("0")
    iNum9   = Asc("9")
    iLowA   = Asc("a")
    iLowZ   = Asc("z")
    iUpA    = Asc("A")
    iUpZ    = Asc("Z")
    t = ""
    For i=1 To Len(s)
        iAsc = Asc(Mid(s,i,1))
        If iAsc>=iNum0 And iAsc<=iNum9 Then
            t = t & Mid(sNum,iAsc-iNum0+1,1)
        ElseIf iAsc>=iLowA And iAsc<=iLowZ Then
            t = t & Mid(sLow,iAsc-iLowA+1,1)
        ElseIf iAsc>=iUpA And iAsc<=iUpZ Then
            t = t & Mid(sUp,iAsc-iUpA+1,1)
        Else
            t = t & Mid(s,i,1)
        End If
    Next
    enc = t
End Function

str = "1a2$8"

Response.Write enc(str)

[hookee]

Function dec(s)
    Dim sNum, sLow, sUp, t, c
    Dim iNum0, iNum9, iLowA, iLowZ, iUpA, iUpZ, i, iPos
    
    sNum    = "EAhfk91sQe"
    sLow    = "8VptI57XNYqM2KnUo03FJWjlrv"
    sUp     = "DLPZZxymHSbdgOG4uRcCwzB6ai"
    iNum0   = Asc("0")
    iNum9   = Asc("9")
    iLowA   = Asc("a")
    iLowZ   = Asc("z")
    iUpA    = Asc("A")
    iUpZ    = Asc("Z")
    t       = ""
    For i = 1 To Len(s)
        c       = Mid(s, i, 1)
        iPos    = InStr(sNum, c)
        If iPos > 0 Then
            t = t & Chr(iNum0 + iPos -1)
        Else
            iPos    = InStr(sLow, c)
            If iPos > 0 Then
                t = t & Chr(iLowA + iPos -1)
            Else
                iPos    = InStr(sUp, c)
                If iPos > 0 Then
                    t = t & Chr(iUpA + iPos -1)
                Else
                    t = t & Mid(s,i,1)
                End If
            End If
        End If
    Next
    dec = t
End Function

str = "1a2$8"

Response.Write dec(enc(str))

[zpzk123]

我当一回傻瓜，给你写一段，就在这儿写，未测试啊，呵呵，命名sbc(sb,n)
n=1 为加密，n=2解密

和重码啊，呵呵DLPZZxymHSbdgOG4uRcCwzB6ai
这里面有两个Z
改成这样了啊
DLPZTxymHSbdgOG4uRcCwzB6ai
function sbc(sb,n)'加密
a="0E,1A,2h,3f,4k,59,61,7s,8Q,9e,a8,bV,cp,dt,eI,f5,g7,hX,iN,jY,kq,lM,m2,nK,on,pU,qo,r0,s3,tF,uJ,vW,wj,xl,yr,zv,AD,BL,CP,DZ,ET,Fx,Gy,Hm,IH,JS,Kb,Ld,Mg,NO,OG,P4,Qu,RR,Sc,TC,Uw,Vz,WB,X6,Ya,Zi"
b=split(a,",")
if n=1 then
for i=0 to ubound(b)
sb=replace(a,left(b(i),1),right(b(i),1))
next
else
for i=0 to ubound(b)
sb=replace(a,right(b(i),1),left(b(i),1))
next
end if
sbc=sb
end function

调用方法：
1、加密：str="123sdfsdfghj"
response.write sbc(str,1)
2、解密：str="123sdfsdfghj"
response.write sbc(str,2)

[zpzk123]

我这个相对要简单些吧，呵呵，

[zpzk123]

刚才有个地方写错了，再给一下代码

function sbc(sb,n)'加密 
a="0E,1A,2h,3f,4k,59,61,7s,8Q,9e,a8,bV,cp,dt,eI,f5,g7,hX,iN,jY,kq,lM,m2,nK,on,pU,qo,r0,s3,tF,uJ,vW,wj,xl,yr,zv,AD,BL,CP,DZ,ET,Fx,Gy,Hm,IH,JS,Kb,Ld,Mg,NO,OG,P4,Qu,RR,Sc,TC,Uw,Vz,WB,X6,Ya,Zi" 
b=split(a,",") 
if n=1 then 
for i=0 to ubound(b) 
sb=replace(sb,left(b(i),1),right(b(i),1)) 
next 
else 
for i=0 to ubound(b) 
sb=replace(sb,right(b(i),1),left(b(i),1)) 
next 
end if 
sbc=sb 
end function 

[toury]

<script>
window.onload=function(){

  var s1="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
  var s2="EAhfk91sQe8VptI57XNYqM2KnUo03FJWjlrvDLPZZxymHSbdgOG4uRcCwzB6ai"
  var arr1=[]
  var arr2=[];
  var a=document.getElementById("a");//alert(a)
  var b=document.getElementById("b")
  for (var i=0;i<s1.length;i++){
    arr1[i]=s1.substr(i,1);//a.innerHTML+=i+"__"+(i+1)+":"+arr1[i]+"<br>"
    arr2[i]=s2.substr(i,1);//b.innerHTML+=i+"__"+(i+1)+":"+arr2[i]+"<br>"
  }

  var s="1a2$8";
  var temp='';
  var bln=false;
  for (var i=0;i<s.length;i++){
    bln=false;
    for (var j=0;j<arr1.length;j++){
      if(s.substr(i,1)==arr1[j]){
        temp+=arr2[j];
        bln=true;
        break;
      }
    }
    if(!bln){temp+=s.substr(i,i+1)}
  }

alert(temp)
}
</script>

[toury]

<script>
window.onload=function(){

  var s1="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
  var s2="EAhfk91sQe8VptI57XNYqM2KnUo03FJWjlrvDLPZZxymHSbdgOG4uRcCwzB6ai"
  var arr1=[]
  var arr2=[];
  var a=document.getElementById("a");//alert(a)
  var b=document.getElementById("b")
  for (var i=0;i<s1.length;i++){
    arr1[i]=s1.substr(i,1);//a.innerHTML+=i+"__"+(i+1)+":"+arr1[i]+"<br>"
    arr2[i]=s2.substr(i,1);//b.innerHTML+=i+"__"+(i+1)+":"+arr2[i]+"<br>"
  }

  var s="1a2$8";
  var temp='';
  var bln=false;
  for (var i=0;i<s.length;i++){
    bln=false;
    for (var j=0;j<arr1.length;j++){
      if(s.substr(i,1)==arr1[j]){
        temp+=arr2[j];
        bln=true;
        break;
      }
    }
    if(!bln){temp+=s.substr(i,1)}
  }

alert(temp)
}
</script>

[taih]

谢谢hookee的解答，能不能再麻烦一下，帮忙写这个算法的逆算的函数

[taih]

不好意思看错了，已经有了，非常感谢这么多热心的兄弟，结贴