Delphi中ScriptControl的高級(jí)應(yīng)用（二）

2019-11-18 18:02:10

字體：大中小

來(lái)源：轉(zhuǎn)載

供稿：網(wǎng)友

Delphi中ScriptControl的高級(jí)應(yīng)用（二）

5、Delphi中使用javaScript的Base64的加解密算法

搜索google：Javascript base64加密就會(huì)找到很多base64加密的代碼，以下就是本人搜索到的一段代碼（以下代碼版權(quán)歸其原作者）：

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;

}

這么長(zhǎng)的一段代碼，我們?cè)鯓硬拍芤?/SPAN>AddCode()的方法加入進(jìn)去呢？

1）第一種方法：把這么長(zhǎng)的代碼定義給一個(gè)字符串。這個(gè)工作量肯定非常大，而且容易出錯(cuò)。

2）第二種方法：把它定義到一個(gè)記事本里，程序運(yùn)行的時(shí)候讀入。安全性很低，容易被人修改，導(dǎo)致出錯(cuò)。

3）第三種方法：把它以資源文件的形式存放在一個(gè)Dll里。這種方法比較適合。以下我們就用這種方法來(lái)處理。

生成DLL的步驟：

1）新建一個(gè)記事本，粘貼上面的代碼，最后保存為Base64.txt。

2）新建一個(gè)記事本，寫(xiě)上以下代碼，最后保存為 Base64.rc。

Base64File exefile "Base64.txt"

3）同目錄下新建一個(gè)批處理文件，保存為Base64.bat。

Brcc32.exe Base64.rc

4）編譯成資源文件Res：雙擊執(zhí)行Base64.bat，完后會(huì)生成一個(gè)Base64.res的文件，這個(gè)就是JavaScript腳本的資源文件。

5）新建一個(gè)DLL，保存為Base64.dPR，加上以下代碼，然后編譯成Base64.dll。

library Base64;

{$R Base64.RES}

begin

end.

這樣，我們的資源文件打包成dll就完成了！

下面，我們的工作就是通過(guò)dll來(lái)讀取JavaScript代碼。

{讀取資源文件到一個(gè)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);

//返回一個(gè)字符串

Result := CodeString.Text;

finally

CodeString.Free;

Stream.Free;

end;

finally

FreeLibrary(Hinst);

end;

下面要做的工作就是通過(guò)ScriptControl控件的AddCode()來(lái)添加自定義JavaScript函數(shù)里。

初始化ScriptControl組件，請(qǐng)參看Delphi中ScriptControl的高級(jí)應(yīng)用（一）

http://blog.csdn.net/juwuyi/archive/2005/03/19/324041.aspx

Sc.AddCode(ReadResourc());

//加密

Words:=’這是一段用BASE64進(jìn)行加密的文字’;

//Result:6L+Z5piv5LiA5q6155SoQkFTRTY06L+b6KGM5Yqg5a+G55qE5paH5a2X

Result:=sc.Eval('base64encode(utf16to8('''+Words+'''))');

//解密

Result:=sc.Eval('utf8to16(base64decode('''+Words+'''))');

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

上一篇：delphi+Oracle做的三層結(jié)構(gòu)的干部管理系統(tǒng)

下一篇：Delphi編寫(xiě)數(shù)據(jù)庫(kù)程序要點(diǎn)

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注

新聞熱點(diǎn)

榮耀總裁趙明烏鎮(zhèn)演講：榮耀首款5G手機(jī)V30下月發(fā)布

2019-10-23 09:17:05

搜狐張朝陽(yáng)：回歸媒體是搜狐重新崛起的關(guān)鍵

2019-10-21 09:20:02

華為輪值董事長(zhǎng)郭平：虛擬技術(shù)創(chuàng)造現(xiàn)實(shí)價(jià)值

2019-10-21 09:00:12

滴滴英文服務(wù)上線兩周年用戶(hù)已超200萬(wàn)

2019-09-26 08:57:12

華為推出全球至快AI訓(xùn)練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國(guó)技術(shù)團(tuán)隊(duì)

2019-09-25 08:15:43

疑難解答

圖片精選

網(wǎng)友關(guān)注

国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

Delphi中ScriptControl的高級(jí)應(yīng)用（二）

Delphi中ScriptControl的高級(jí)應(yīng)用（二）