JAVASCRIPT字符串转换问题。

Question

<script language="javascript">
<!--
    function fncchange()
    {
      var st = new Array('1','2','3','4','5','6','7','8','9','0',
       'a','b','c','d','e','f','g','h','i','j',
       'k','l','m','n','o','p','q','r','s','t',
       'u','v','w','x','y','z','A','B','C','D',
       'E','F','G','H','I','J','K','L','M','N',
       'O','P','Q','R','S','T','U','V','W','X',
       'Y','Z');      var dt = new Array('E','F','G','H','I','J','K','L','M','N',
       'O','P','Q','R','S','T','U','V','W','X',
       'a','b','c','d','e','f','g','h','i','j',
       '1','2','3','4','5','6','7','8','9','0',
       'u','v','w','x','y','z','A','B','C','D',
       'k','l','m','n','o','p','q','r','s','t',
       'Z','Y');
       
       var s = "aBp8uT5x";
       
       var t = "";
       
       for(var i = 0;i < s.length;i++)
       {
         for(var j = 0;j < st.length;j++)
         {
           if(s.substring(i,i+1) == st[j])
             t = t + dt[j];
         }
       }
       
       alert(t);
    }fncchange();
//-->
</script>

Answer 1

st中的'x'在dt对应的对应字符是'4'所以转化后的结果应该是：'O8fL1pI4'

Answer 2

在JS里建立一个字典表, VBS同样也有字典表, 进行转换:
<SCRIPT LANGUAGE="JavaScript">
<!--
function mm(str)
{
  var mm = {
    "1":"E",  "2":"F",  "3":"G",  "4":"H",  "5":"I",
    "6":"J",  "7":"K",  "8":"L",  "9":"M",  "0":"N",
    "a":"O",  "b":"P",  "c":"Q",  "d":"R",  "e":"S",
    "f":"T",  "g":"U",  "h":"V",  "i":"W",  "j":"X",
    "k":"a",  "l":"b",  "m":"c",  "n":"d",  "o":"e",
    "p":"f",  "q":"g",  "r":"h",  "s":"i",  "t":"j",
    "u":"1",  "v":"2",  "w":"3",  "x":"4",  "y":"5",
    "z":"6",  "A":"7",  "B":"8",  "C":"9",  "D":"0",
    "E":"u",  "F":"v",  "G":"w",  "H":"x",  "I":"y",
    "J":"z",  "K":"A",  "L":"B",  "M":"C",  "N":"D",
    "O":"k",  "P":"l",  "Q":"m",  "R":"n",  "S":"o",
    "T":"p",  "U":"q",  "V":"r",  "W":"s",  "X":"t",
    "Y":"Z",  "Z":"Y"}
  var s = "", n=str.length;
  for(var i=0; i<n; i++) s += mm[str.charAt(i)];
  return(s);
}
alert(mm("aBp8uT5x"));
//-->
</SCRIPT>

Answer 3

<script language="JavaScript">
Array.prototype.array_search = function(element)
{
var key;
for ( key in this )
{
if ( this[key] == element ) 
{
return key;
}
}
return null;
}var st = ['1','2','3','4','5','6','7','8','9','0',
       'a','b','c','d','e','f','g','h','i','j',
       'k','l','m','n','o','p','q','r','s','t',
       'u','v','w','x','y','z','A','B','C','D',
       'E','F','G','H','I','J','K','L','M','N',
       'O','P','Q','R','S','T','U','V','W','X',
       'Y','Z'];var dt = ['E','F','G','H','I','J','K','L','M','N',
       'O','P','Q','R','S','T','U','V','W','X',
       'a','b','c','d','e','f','g','h','i','j',
       '1','2','3','4','5','6','7','8','9','0',
       'u','v','w','x','y','z','A','B','C','D',
       'k','l','m','n','o','p','q','r','s','t',
       'Z','Y'];var s = "aBp8uT5x";
var r = '';for (var i=0; i<s.length; i++)
{
r += dt[st.array_search(s.substr(i, 1))];
}document.write(s + ' => ' + r);
</script>

Answer 4

下面是VBS里的字典表转换法:
<SCRIPT LANGUAGE="VBScript">
function meizz(str)
  Dim d : Set d = CreateObject("Scripting.Dictionary")
    d.add "1", "E" : d.add "2", "F" : d.add "3", "G" : d.add "4", "H"
    d.add "5", "I" : d.add "6", "J" : d.add "7", "K" : d.add "8", "L"
    d.add "9", "M" : d.add "0", "N" : d.add "a", "O" : d.add "b", "P"
    d.add "c", "Q" : d.add "d", "R" : d.add "e", "S" : d.add "f", "T"
    d.add "g", "U" : d.add "h", "V" : d.add "i", "W" : d.add "j", "X"
    d.add "k", "a" : d.add "l", "b" : d.add "m", "c" : d.add "n", "d"
    d.add "o", "e" : d.add "p", "f" : d.add "q", "g" : d.add "r", "h"
    d.add "s", "i" : d.add "t", "j" : d.add "u", "1" : d.add "v", "2"
    d.add "w", "3" : d.add "x", "4" : d.add "y", "5" : d.add "z", "6"
    d.add "A", "7" : d.add "B", "8" : d.add "C", "9" : d.add "D", "0"
    d.add "E", "u" : d.add "F", "v" : d.add "G", "w" : d.add "H", "x"
    d.add "I", "y" : d.add "J", "z" : d.add "K", "A" : d.add "L", "B"
    d.add "M", "C" : d.add "N", "D" : d.add "O", "k" : d.add "P", "l"
    d.add "Q", "m" : d.add "R", "n" : d.add "S", "o" : d.add "T", "p"
    d.add "U", "q" : d.add "V", "r" : d.add "W", "s" : d.add "X", "t"
    d.add "Y", "Z" : d.add "Z", "Y"
  Dim n, i, s : n=len(str) : s = ""
  for i=1 to n
    s = s & d(Mid(str, i, 1))
  next
  meizz = s
end function
msgbox meizz("aBp8uT5x")
</SCRIPT>