Delphi中ScriptControl的高级应用(二)

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

 

 

DelphiScriptControl的高级应用(二)

5Delphi中使用javascriptBase64的加解密算法

   搜索googlejavascript 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组件,请参看DelphiScriptControl的高级应用(一)

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值