程序太长,请看:http://www.freewebs.com/caunsa/des.htm主要是
function des (key, message, encrypt, mode, iv)
function des_createKeys (key)
两个函数
另:有什么接口可以在delphi里面运行javascript并取得某结果
function des (key, message, encrypt, mode, iv)
function des_createKeys (key)
两个函数
另:有什么接口可以在delphi里面运行javascript并取得某结果
解决方案 »
- rzdbedit修改数据不成功,在线等!!
- 为什么在delphi2009下是乱码呢?
- 请问一下类似宏一样的东东在哪边定义的?
- 请教SQL查询语句
- Sql Sever6.5中设计好的字段如何修改它的长度?
- 花了好几天,做了一个好东东,撒分!!!!
- 从外部拖动经过TreeView的节点时,如何及时改变节点图标?
- 一个困扰我很久的难题?(高手帮忙啊)
- 有一串字符为'001',怎样使用代码将他不断加1后变成'002','003'...'015','016'...,并按照此顺序排列。
- 超级菜鸟问题,怎样让delphi的背景不是空的(居然能看见桌面??)?
- 请问ComboBox中Items的动态显示问题
- 彩色图片转灰度图片的问题,找到的算法要么是针对BMP格式,要么是针对JPEG、JPG格式的,有没有支持多种图像格式的?
调用下面的代码
procedure TForm1.Button1Click(Sender: TObject);
var IHtmlWin:IHTMLWindow2;
IHtmlDoc:IHtmlDocument2;
begin
IHtmlDoc:= WebBrowser1.Document as IHtmlDocument2 ;
IHtmlWin:=IHtmlDoc.parentWindow;
IHtmlWin.execScript('AFun();','javascript');
end;