ASP相当于strtr PHP函数

时间:2013-08-01 08:49:10

标签: string asp-classic

我正在寻找一个等同于strtr PHP函数的ASP。 我用它来加密ROT47

这是我的PHP代码:

function rot47_encrypt($str)
{
  return strtr($str, 
    '!"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~', 
    'PQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~!"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO'
  );
}

谢谢

1 个答案:

答案 0 :(得分:2)

我认为没有内置函数可以做同样的事情,所以需要用循环来实现。

有些事情:

Public Function rot47(str)
    fromChars = "!""#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
    toChars   = "PQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~!""#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO"
    rot47     = ""

    For i = 1 To Len(str)
        Position = InStr(fromChars, Mid(str, i, 1))

        If Position = 0 Then
            rot47 = rot47 & Mid(str, i, 1)
        Else
            rot47 = rot47 & Mid(toChars, Position, 1)
        End If
    Next
End Function