Delphi中ScriptControl的高级应用（二）

原载地址：http://www.gz183.com.cn/Info/114/info22776_1.htm

 

 

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+'''))');

  

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