求救： javascript 转换成 delphi 程序

Question

程序太长，请看：http://www.freewebs.com/caunsa/des.htm主要是
function des (key, message, encrypt, mode, iv) 
function des_createKeys (key)
两个函数
另：有什么接口可以在delphi里面运行javascript并取得某结果

Answer 1

假设我调用的是AFun函数...在你的单元中增加引用MsHTML ，
调用下面的代码
procedure TForm1.Button1Click(Sender: TObject);
var IHtmlWin:IHTMLWindow2;
    IHtmlDoc:IHtmlDocument2;
begin
  IHtmlDoc:= WebBrowser1.Document as IHtmlDocument2 ;
  IHtmlWin:=IHtmlDoc.parentWindow;
  IHtmlWin.execScript('AFun();','javascript');
end;

Answer 2

我需要得到JavaScript的变量，例如MSXML的XMLDOMDocument对象，如何处理？