Delphi中ScriptControl的高级应用（二）5、Delphi中使用JavaScript的Base64的加解密算法
搜索google：javascript base64加密 就会找到很多base64加密的代码，以下就是本人搜索到的一段代码（以下代码版权归其原作者）：
var base64EncodeChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
var base64DecodeChars = new Array(
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 62, -1, -1, -1, 63,
52, 53, 54, 55, 56, 57, 58, 59, 60, 61, -1, -1, -1, -1, -1, -1,
-1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, -1, -1, -1, -1, -1,
-1, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, -1, -1, -1, -1);
function base64encode(str) {
var out, i, len;
var c1, c2, c3;
len = str.length;
i = 0;
out = "";
while(i < len) {
c1 = str.charCodeAt(i++) & 0xff;
if(i == len)
{
out += base64EncodeChars.charAt(c1 >> 2);
out += base64EncodeChars.charAt((c1 & 0x3) << 4);
out += "==";
break;
}
c2 = str.charCodeAt(i++);
if(i == len)
{
out += base64EncodeChars.charAt(c1 >> 2);
out += base64EncodeChars.charAt(((c1 & 0x3)<< 4) | ((c2 & 0xF0) >> 4));
out += base64EncodeChars.charAt((c2 & 0xF) << 2);
out += "=";
break;
}
c3 = str.charCodeAt(i++);
out += base64EncodeChars.charAt(c1 >> 2);
out += base64EncodeChars.charAt(((c1 & 0x3)<< 4) | ((c2 & 0xF0) >> 4));
out += base64EncodeChars.charAt(((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6));
out += base64EncodeChars.charAt(c3 & 0x3F);
}
return out;
}
function base64decode(str) {
var c1, c2, c3, c4;
var i, len, out;
len = str.length;
i = 0;
out = "";
while(i < len) {
/* c1 */
do {
c1 = base64DecodeChars[str.charCodeAt(i++) & 0xff];
} while(i < len && c1 == -1);
if(c1 == -1)
break;
/* c2 */
do {
c2 = base64DecodeChars[str.charCodeAt(i++) & 0xff];
} while(i < len && c2 == -1);
if(c2 == -1)
break;
out += String.fromCharCode((c1 << 2) | ((c2 & 0x30) >> 4));
/* c3 */
do {
c3 = str.charCodeAt(i++) & 0xff;
if(c3 == 61)
return out;
c3 = base64DecodeChars[c3];
} while(i < len && c3 == -1);
if(c3 == -1)
break;
out += String.fromCharCode(((c2 & 0XF) << 4) | ((c3 & 0x3C) >> 2));
/* c4 */
do {
c4 = str.charCodeAt(i++) & 0xff;
if(c4 == 61)
return out;
c4 = base64DecodeChars[c4];
} while(i < len && c4 == -1);
if(c4 == -1)
break;
out += String.fromCharCode(((c3 & 0x03) << 6) | c4);
}
return out;
}
function utf16to8(str) {
var out, i, len, c;
out = "";
len = str.length;
for(i = 0; i < len; i++) {
c = str.charCodeAt(i);
if ((c >= 0x0001) && (c <= 0x007F)) {
out += str.charAt(i);
} else if (c > 0x07FF) {
out += String.fromCharCode(0xE0 | ((c >> 12) & 0x0F));
out += String.fromCharCode(0x80 | ((c >> 6) & 0x3F));
out += String.fromCharCode(0x80 | ((c >> 0) & 0x3F));
} else {
out += String.fromCharCode(0xC0 | ((c >> 6) & 0x1F));
out += String.fromCharCode(0x80 | ((c >> 0) & 0x3F));
}
}
return out;
}
function utf8to16(str) {
var out, i, len, c;
var char2, char3;
out = "";
len = str.length;
i = 0;
while(i < len) {
c = str.charCodeAt(i++);
switch(c >> 4)
{
case 0: case 1: case 2: case 3: case 4: case 5: case 6: case 7:
// 0xxxxxxx
out += str.charAt(i-1);
break;
case 12: case 13:
// 110x xxxx 10xx xxxx
char2 = str.charCodeAt(i++);
out += String.fromCharCode(((c & 0x1F) << 6) | (char2 & 0x3F));
break;
case 14:
// 1110 xxxx 10xx xxxx 10xx xxxx
char2 = str.charCodeAt(i++);
char3 = str.charCodeAt(i++);
out += String.fromCharCode(((c & 0x0F) << 12) |
((char2 & 0x3F) << 6) |
((char3 & 0x3F) << 0));
break;
}
}
return out;
}
这么长的一段代码，我们怎样才能以AddCode()的方法加入进去呢？
1） 第一种方法：把这么长的代码定义给一个字符串。这个工作量肯定非常大，而且容易出错。
2） 第二种方法：把它定义到一个记事本里，程序运行的时候读入。安全性很低，容易被人修改，导致出错。
3） 第三种方法：把它以资源文件的形式存放在一个Dll里。这种方法比较适合。以下我们就用这种方法来处理。
生成DLL的步骤：
1） 新建一个记事本，粘贴上面的代码，最后保存为Base64.txt。
2） 新建一个记事本，写上以下代码，最后保存为 Base64.rc。
Base64File exefile "Base64.txt"
3） 同目录下新建一个批处理文件，保存为Base64.bat。
Brcc32.exe Base64.rc
4） 编译成资源文件Res：双击执行Base64.bat，完后会生成一个Base64.res的文件，这个就是JavaScript脚本的资源文件 。
5） 新建一个DLL，保存为Base64.dpr，加上以下代码，然后编译成Base64.dll。
library Base64;
{$R Base64.RES}
begin
end.
这样，我们的资源文件打包成dll就完成了！
下面，我们的工作就是通过dll来读取JavaScript代码。
{读取资源文件到一个String变量}
Function ReadResourc():String;
Var
Hinst : Thandle;
Stream:TResourceStream;
CodeString : TStrings;
begin
Result := '';
//加载dll
Hinst:=Loadlibrary('Base64.dll');
If Hinst=0 Then Exit;
Try
//读取资源文件
Stream:=TResourceStream.Create(Hinst,’Base64File’,'exefile');
CodeString := TStringList.Create();
Try
//将资源文件存放到列表里
CodeString.LoadFromStream(Stream);
//返回一个字符串
Result := CodeString.Text;
finally
CodeString.Free;
Stream.Free;
end;
finally
FreeLibrary(Hinst);
end;
end;
下面要做的工作就是通过ScriptControl控件的AddCode()来添加自定义JavaScript函数里。
初始化ScriptControl组件，请参看Delphi中ScriptControl的高级应用（一）
http://blog.csdn.net/juwuyi/archive/2005/03/19/324041.aspx
Sc.AddCode(ReadResourc());
//加密
Words:=’这是一段用BASE64进行加密的文字’;
//Result:6L+Z5piv5LiA5q6155SoQkFTRTY06L+b6KGM5Yqg5a+G55qE5paH5a2X
Result:=sc.Eval('base64encode(utf16to8('''+Words+'''))');
//解密
Result:=sc.Eval('utf8to16(base64decode('''+Words+'''))');
图片效果如下：
此篇完！-----------------------JoeCom(juwuyi) 2005-03-21
