开发学院软件开发 Delphi Delphi中ScriptControl的高级应用（二）阅读

Delphi中ScriptControl的高级应用（二）

　2006-02-04 14:00:47　来源：WEB开发网　　　

核心提示： Delphi中ScriptControl的高级应用（二）5、Delphi中使用javaScript的Base64的加解密算法搜索google：Javascript base64加密就会找到很多base64加密的代码，以下就是本人搜索到的一段代码（以下代码版权归其原作者）：var base64EncodeChar

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, 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;

下面要做的工作就是通过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+'''))');

<SPAN style="FONT-FAMILY: 宋体; m

Tags：Delphi ScriptControl 高级

编辑录入：爽爽　[复制链接] [打印]

赞助商链接

热点阅读

焦点图片

精彩阅读

Delphi中ScriptControl的高级应用（二）

Delphi中ScriptControl的高级应用（二）

Tags：Delphi ScriptControl 高级

更多精彩

让你的Word 2007也能多页打印预览

用社交网络连接 WebSphere MQ：列队管理器和 MQ 应用程序的 Twitter 通知

图案艺术的绘画—四方连续图案的绘制方法

论坛程序奥运会：动网、DZ和PW横评

DB2在aix上的安装

赞助商链接

热点阅读

焦点图片

Android获取SD卡总容量...

Photoshop调出内衣美女...

Windows7系统下有线网...

解决FF浏览器和IE下载...

最新推荐

精彩阅读