有没有JAVA 与ASP 通用的base64加密解密

解决方案 »

  1.   

     java与asp通用... 你的意思是java与asp程序都可以调用的东西? 
      

  2.   

    '函数加密
    Function base64Encode(plain, key)
          initCodecs key      If Len(plain) = 0 Then
              base64Encode = ""
              Exit Function
          End If      Dim ret, ndx, by3, first, second, third
          by3 = (Len(plain) \ 3) * 3
          ndx = 1
          Do While ndx <= by3
              first = Asc(Mid(plain, ndx + 0, 1))
              second = c(Mid(plain, ndx + 1, 1))
              third = Asc(Mid(plain, ndx + 2, 1))
              ret = ret & Base64EncMap((first \ 4) And 63)
              ret = ret & Base64EncMap(((first * 16) And 48) + ((second \ 16) And 15))
              ret = ret & Base64EncMap(((second * 4) And 60) + ((third \ 64) And 3))
              ret = ret & Base64EncMap(third And 63)
              ndx = ndx + 3
          Loop
          ' check for stragglers
          If by3 < Len(plain) Then
              first = Asc(Mid(plain, ndx + 0, 1))
              ret = ret & Base64EncMap((first \ 4) And 63)
              If (Len(plain) Mod 3) = 2 Then
                    second = Asc(Mid(plain, ndx + 1, 1))
                    ret = ret & Base64EncMap(((first * 16) And 48) + ((second \ 16) And 15))
                    ret = ret & Base64EncMap(((second * 4) And 60))
              Else
                    ret = ret & Base64EncMap((first * 16) And 48)
                    ret = ret & "="
              End If
              ret = ret & "="
          End If      base64Encode = ret
    End Function
    这是ASP的加密,
    我想用JAVA写一个加密,加密后返回的字符要是一样的
      

  3.   

    只能用javascript吗 后台不能实现吗