有没有JAVA 与ASP 通用的base64加密解密
解决方案 »
- 为什么这个简单的递归算法在NetBeans里无法编译,直接用命令可以
- JFrame设计无法显示
- JTable高手,请务必要帮忙,不帮忙,不想混了!!!
- 两个数组如何进行相应排序输出???
- 使用jacob的示例代码出错.jacob16,jacob17都不行
- java.lang.NullPointerException?
- 100分求JB8的注册码或注册文件
- 同一个页面中的参数值传递
- BBS的统计问题
- 很简单的程序:Exception in the thread "main" ClassNotFound:Demo
- 循环体内JAVA生成不同名称的变量,怎么做啊?
- POI 可以为Excel单元格设置不同的字体&颜色吗?如何设置?
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写一个加密,加密后返回的字符要是一样的