PDA

Просмотр полной версии : Delphi+JAVA

Dimon32
09.05.2010, 08:23
У меня вопрос по Delphi:

Есть файл coder.html со скриптом-шифровальщиком
Есть файл test.html с некоторым Java кодом, который нужно зашифровать

Задача: скопировать из страницы test.html скопировать несколько строк, и спомощью java скрипта находящегося в coder.html зашифровать эти строки и вывести в memo1 в программе.
Условие: Юзер не должен увидеть как это происходит.

Помогите пожалуйста как это сделать. Киньте примеры -исходники если есть. :o

Если это поможет - могу скинуть этот скрипт шифровальщик. Только помогите!!!
JnK
09.05.2010, 09:53
1. Выбрать несколько строк из файла: Copy, Delete, Pos. Если не знаешь как это делать Поиск по форуму, обсуждали не раз.


2. Тык (http://www.delphisources.ru/pages/faq/base/js_func_exec.html)
В гугле вводишь Использование JavaScript в Delphi и самая 1 строка.

P.s. И не путай Java и JavaScript.
Dimon32
09.05.2010, 13:25
подключил функцию из этой статьи. требует MSHTML_TLB.
Где этот компонент или модуль. На какой вкладке?
GhostOnline
09.05.2010, 13:30
В uses MSHTML
ПС опять же- взято из гугла, 2-ой результат. Напиши уже в саппорт гугла, чтобы разбанили.

А за что забанили то?
Я откуда знаю за что тебя забанили
Dimon32
09.05.2010, 13:32
А за что забанили то?
Dimon32
09.05.2010, 17:32
подключил я в uses MSHTML, Теперь пишет что неизвестная переменная:
IHTMLDocument2
JnK
09.05.2010, 21:50
uses MSHTML


var
doc: IHtmlDocument2;
begin
...
end;
Другими словами: IHtmlDocument2 описан в MSHTML.
Если где то в другом месте юзаешь, то показывай код.


P.s. Научись Гуглить. :rolleyes:
Dimon32
09.05.2010, 21:54
спасибо.
тока нифига не получилось. весь вечер бился над этим.
Можт кто выложит проектик готовый.
Вот код кодирощика java script.
Хочу закодировать строку: "Античат рулит"
И вывести ее в memo1
<body> <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0> <TBODY> <TR> <TD vAlign=top align=left> <SCRIPT language=JavaScript> <!-- function generate() /* Generation of "Compilation" */ { code = document.pad.text.value; if (code) {setTimeout("compile()",1000);} } function compile() /* The "Compilation" */ { document.pad.text.value=''; compilation=escape(code); document.pad.text.value= "<script>\n<!--\ndocument. write(unescape(\""+compilation+"\")); \n//-->\n<\/script>"; } // --> </SCRIPT> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width="100%"> <FORM name=pad method=post align="center"> <TEXTAREA style="WIDTH: 95%; BACKGROUND-COLOR: #ebebeb" name=text rows=11 cols=58></TEXTAREA> <BR> <INPUT onclick=generate() type=button value=Encrypt name=compileIt> </FORM> </TD> </TR> </TBODY> </TABLE> </TD></TR></TBODY></TABLE> </body>