[Perl] Новичкам: задаем вопросы

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

25.06.2008, 03:10

GAVVVR

Познающий

Регистрация: 08.04.2008

Сообщений: 60

Провел на форуме:
111221

Репутация: 2

Отправить сообщение для GAVVVR с помощью ICQ

На хакер.ру есть такой скрипт для поиска потенциально уязвимых машин с включенным Rdp.
Вот он

Код:

var ie = new ActiveXObject("InternetExplorer.Application");

ie.Visible = false;

for (var c_index = 0; c_index < 10; c_index++) {

ie.Navigate("http://www.google.com/search?q=intitle:Remote.Desktop.Web.Connection%20inurl:tsweb&num=100&start=" + c_index*10 + "&hl=en");

while (ie.busy) { WScript.Sleep(100) }

var lnk = "";

for (var i = 0; i < ie.document.links.length; i++) {

lnk = ie.document.links[i].href; 

if (lnk.indexOf("google") == -1)

{

if (lnk.indexOf("cache:") == -1) {

WScript.Echo(lnk);

}

}

}

}

ie.Quit();

Только либо он у меня не работает, либо до меня не допетрило как его применить.
Помогите