求大神帮忙把一段php代码转成asp的

Question

<?php
//动态加密解密 Code by 201724
function encrypt($str,$key) {
    $thetime = (string)time();
    $timestrlen = strlen($thetime);
    $keylen = strlen($key);
    $estrlen = strlen($str);
    $dumpstr = '';
    $tmp='';
    for($i=0;$i<$estrlen;$i++)
    {
        $tmp = ord($str[$i]);
        for($j=0;$j<$keylen;$j++)
        {
           $tmp = $tmp ^ ord($key[$j]);
        }
        for($t=0;$t<$timestrlen;$t++)
        {
           $tmp = $tmp ^ ord($thetime[$t]);
        }
        $dumpstr .= chr($tmp);
    }
    return base64_encode($thetime . '|' .$dumpstr);
}
function decrypt($destr,$key) {
    $str = base64_decode($destr);
    $thetime = substr($str,0,10);
    //第11个是|
    $str = substr($str,11);
    $timestrlen = strlen($thetime);
    $keylen = strlen($key);
    $estrlen = strlen($str);
    $dumpstr = '';
    $tmp='';
    for($i=0;$i<$estrlen;$i++)
    {
        $tmp = ord($str[$i]);
        for($j=0;$j<$keylen;$j++)
        {
           $tmp = $tmp ^ ord($key[$j]);
        }
        for($t=0;$t<$timestrlen;$t++)
        {
           $tmp = $tmp ^ ord($thetime[$t]);
        }
        $dumpstr .= chr($tmp);
    }
    return $dumpstr;
}

Answer 1

ASP 有 base64 编解码函数吗？

Answer 2

discuz的加解密吧，asp实现起来比较难，最好找别的方案。java倒是有现成的