Как просканить файлы и выделить из них e-mail адреса

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  Как просканить файлы и выделить из них e-mail адреса
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Как просканить файлы и выделить из них e-mail адреса

MYSTIQUE опубликован 19-01-2002 13:36 MSK
Как просканить файлы и выделить из них e-mail адреса.
Rezident опубликован 19-01-2002 14:53 MSK
Есть такая АПИ функцыя ScanFileForEmail Lib "kernel32" (byVal filename as string) as long - вот ее и юзай :))
purpe опубликован 19-01-2002 16:01 MSK
ты б сразу сказал - как будет называться твой червь, а то ведь интересно :)
MYSTIQUE опубликован 19-01-2002 18:38 MSK
Называться он будет - MYSTIQUE
purpe опубликован 19-01-2002 18:41 MSK
а ты чувствуешь в себе силы превзойти нимду ?
MYSTIQUE опубликован 19-01-2002 18:43 MSK
Если честно пока нет,я только учусь!!!
AlexR опубликован 19-01-2002 19:03 MSK
А чё твой червь будет делать?
MYSTIQUE опубликован 19-01-2002 19:12 MSK
Он будет выковыривать все пассворды ,рассылаться по почте(соответственно) ну и еще чего нибудь!!!
Lamer опубликован 19-01-2002 22:11 MSK
Да? Ну, так хочу тебя обрадовать, MYSTIQUE, - ты выбрал не тот язык. Надо было учить СИ или Делфя что ли. Потому, что не у всех людей есть, к примеру, есть MSVBVM60.DLL! Или он будет рассылать себя как инсталляционный пакет? Наверное, с текстом в письме типа: "Запустите Setup.exе, установите мой червь и затем запустите MYSTIQUE.EXE из меню Пуск!". Я угадал? Если да, то не забудь скрыть червя в диспетчере задач, а то вдруг заметят!
Lamer опубликован 19-01-2002 22:20 MSK
К тому же вирусописание - это, прежде всего неуважение чужого труда!
MYSTIQUE опубликован 19-01-2002 23:00 MSK
И все таки вирусы это круто чтобы вы все не говорили!!!
MYSTIQUE опубликован 20-01-2002 12:08 MSK
Чувак зайди на viruslist.com и прочитай про вирус I-Worm.Apost главное посмотри на чем о написан!!!
Vasya2000 опубликован 20-01-2002 10:27 MSK
пусть твой MYSTIQUE заодно тырит какиенибудь документы (doc, xls, pdf) и шлёт куданибудь. к примеру fsb.ru
AlexR опубликован 20-01-2002 10:59 MSK
to Vasya2000: А документы зачем?
AlexR опубликован 20-01-2002 11:00 MSK
to MYSTIQUE: А вообще зачем тебе нужен червь?
Vasya2000 опубликован 20-01-2002 11:05 MSK
Вдруг это будет какойнибудь документик с ноутбука американского министра обороны :)))
AlexR опубликован 20-01-2002 11:06 MSK
to Vasya2000: и у кого на компе будет е-мэйл министра обороны? :-))
Vasya2000 опубликован 20-01-2002 11:08 MSK
У MYSTIQUE. Он же уже сканирует секретные файлы с адресами, там таких лохов как министр обороны - пруд пруди.
AlexR опубликован 20-01-2002 11:10 MSK
Теперь понял.
Vasya2000 опубликован 20-01-2002 11:13 MSK
2 AlexR :
Кстати, спасибо за осх, но мне милее это дело в виде класса;)
AlexR опубликован 20-01-2002 11:14 MSK
to Vasya2000: Мне тоже, но когда лень писать, пользуюсь *.ocx.
MYSTIQUE опубликован 20-01-2002 12:58 MSK
Тут вообще кроме меня вирмэйкеры есть!!!
aker13 опубликован 20-01-2002 14:15 MSK
o, da , eto moy dvoyurodniy brat, on na Asemblere napisal odin vir, DR.Web ne nashel, no eto bilo 7 let nazad v shkolniye vremena. No kogda ti svoy vir dakonchish nam toje dash, no do etogo nam skaji :)
AlexR опубликован 20-01-2002 15:41 MSK
to MYSTIQUE: ты в своём черве ещё сделай такую вещь, чтобы он ещё тебе на е-мэйл отправлял адреса всех, кому был разослан.
AlexR опубликован 20-01-2002 16:22 MSK
to MYSTIQUE: и ещё чтобы червь при запуске копировался в "C:\Windows\System\" и запускался.
MYSTIQUE опубликован 20-01-2002 19:46 MSK
O'k уже работаю над этим!!!
Lamer опубликован 20-01-2002 22:35 MSK
Ну, вирмейкер ты наш, я когда-то "вначале пути" только написанием разных вирусаков и занимался. Поверь, это дело бесполезное, а на ВБ - просто бессмысленно. Ну, MYSTIQUE, где ты видел таких идиотов-министров, которые, забив свой хард секретной информацием, сознательно установят твою прогу и выйдут в нет. Принцип I-Worm.Apost с архивом работает лишь в 10% случаев (статистика из нета), к тому же сам пакет тоже надо уметь составить! Послушай мой совет, если хочешь всем сильно испоганить жизнь, то вирус должен состоять из единого ехе-файла, который бы работал независимо от версии виндов. Или пиши уж лучше вирусы на VBScript, как другие умные люди!
Кстати, если хочешь ввести тупых юзеров в глубокое раздумье, пусть червь после рассылки и т. п. удаляет на диске все файлы *.VXD.
MYSTIQUE опубликован 20-01-2002 22:46 MSK
Уговорили,попробую че нибудь на С++ изобразить!!!
7in опубликован 20-01-2002 23:41 MSK
Сколько советчиков развелось!!! :))))))
Даже Lamer, который писал "К тому же вирусописание - это, прежде всего неуважение чужого труда!" :)))))
Ну я тоже чё-нть добавлю тогда :)
e-mail'ы можно ещё из ICQ тырить :)
MYSTIQUE опубликован 20-01-2002 23:52 MSK
Если знаешь как через Асю напиши как,плиз!!!
cr опубликован 21-01-2002 13:11 MSK
Червь.. хм.. на VB.. exe-файл..
MYSTIQUE, по-моему ты неудачно язык выбрал для червя...
Их так никто не делает, т.к. НИКТО не будет запускать пришедший по емылу exe'шник, предварительно его не проверив..
Червей пишут так, что они автоматически запускаются при открытиии письма, а для этого используются VBS, JS, VBA, WSH.. Самый ходовый VBS.
AlexR опубликован 21-01-2002 19:17 MSK
Вообще червя лучше писать на Си.
MYSTIQUE опубликован 21-01-2002 23:09 MSK
Кстати нащет того чтобы сам запускался ,если кому не влом опишите плиз как использовать дырку -IFRAME-!!!!(Если кто не в курсе эту дыру использовали Nimda,Badtrans,BadtransII)
cr опубликован 23-01-2002 15:50 MSK
'функция, вытаскивающая email адреса из предложенного текста.
'Перебирай все файлы на диске, ищи среди них текстовые и
'используй эту функцию
':) но так никто не делает. Отправку осуществляют с пом. оутлока и его адресной книги
Public Function GetEmail(Inp As String) As String
Dim chrAt As String
Dim chrOpen As String
Dim chrClose As String
Dim phrHREF As String
Dim phrMailTo As String
Dim strFirst As String
Dim strLast As String
Dim strEmail As String
chrAt = InStr(1, Inp$, "@")
chrOpen = InStr(1, Inp$, "<")
chrClose = InStr(1, Inp$, ">")
phrHREF = InStr(1, Inp$, "<a href=")
phrMailTo = InStr(1, Inp$, Chr$(34) & "mailto:")
strFirst = InStr(1, Inp$, "<a href=" & Chr$(34) & "mailto:")
strLast = InStr(1, Inp$, Chr$(34) & ">")
If chrOpen Then
If chrClose Then
If phrHREF Then
If phrMailTo Then
If strFirst Then
If strLast Then

Inp$ = Mid$(Inp$, phrMailTo + 8)
GetEmail$ = Mid(Inp$, 1, InStr(1, Inp$, Chr$(34)) - 1)

End If
End If
End If
End If
End If
End If
End Function
Lamer опубликован 26-01-2002 12:31 MSK
IFRAME была окончательно заделана ещё в Internet Explorer 4.0, а другие броузера IFRAME вообще не поддерживают!
AlexR опубликован 26-01-2002 17:35 MSK
to MYSTIQUE: зайди сюда:

http://www.uinc.ru:8101/articles/index.shtml
http://digital-t.chat.ru/iloveyou.html
http://delphi.diagnostic.ru:8101/archivedec.html
http://xuyaker.narod.ru/index3.htm
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Как просканить файлы и выделить из них e-mail адреса
MYSTIQUE	опубликован 19-01-2002 13:36 MSK Как просканить файлы и выделить из них e-mail адреса.
Rezident	опубликован 19-01-2002 14:53 MSK Есть такая АПИ функцыя ScanFileForEmail Lib "kernel32" (byVal filename as string) as long - вот ее и юзай :))
purpe	опубликован 19-01-2002 16:01 MSK ты б сразу сказал - как будет называться твой червь, а то ведь интересно :)
MYSTIQUE	опубликован 19-01-2002 18:38 MSK Называться он будет - MYSTIQUE
purpe	опубликован 19-01-2002 18:41 MSK а ты чувствуешь в себе силы превзойти нимду ?
MYSTIQUE	опубликован 19-01-2002 18:43 MSK Если честно пока нет,я только учусь!!!
AlexR	опубликован 19-01-2002 19:03 MSK А чё твой червь будет делать?
MYSTIQUE	опубликован 19-01-2002 19:12 MSK Он будет выковыривать все пассворды ,рассылаться по почте(соответственно) ну и еще чего нибудь!!!
Lamer	опубликован 19-01-2002 22:11 MSK Да? Ну, так хочу тебя обрадовать, MYSTIQUE, - ты выбрал не тот язык. Надо было учить СИ или Делфя что ли. Потому, что не у всех людей есть, к примеру, есть MSVBVM60.DLL! Или он будет рассылать себя как инсталляционный пакет? Наверное, с текстом в письме типа: "Запустите Setup.exе, установите мой червь и затем запустите MYSTIQUE.EXE из меню Пуск!". Я угадал? Если да, то не забудь скрыть червя в диспетчере задач, а то вдруг заметят!
Lamer	опубликован 19-01-2002 22:20 MSK К тому же вирусописание - это, прежде всего неуважение чужого труда!
MYSTIQUE	опубликован 19-01-2002 23:00 MSK И все таки вирусы это круто чтобы вы все не говорили!!!
MYSTIQUE	опубликован 20-01-2002 12:08 MSK Чувак зайди на viruslist.com и прочитай про вирус I-Worm.Apost главное посмотри на чем о написан!!!
Vasya2000	опубликован 20-01-2002 10:27 MSK пусть твой MYSTIQUE заодно тырит какиенибудь документы (doc, xls, pdf) и шлёт куданибудь. к примеру fsb.ru
AlexR	опубликован 20-01-2002 10:59 MSK to Vasya2000: А документы зачем?
AlexR	опубликован 20-01-2002 11:00 MSK to MYSTIQUE: А вообще зачем тебе нужен червь?
Vasya2000	опубликован 20-01-2002 11:05 MSK Вдруг это будет какойнибудь документик с ноутбука американского министра обороны :)))
AlexR	опубликован 20-01-2002 11:06 MSK to Vasya2000: и у кого на компе будет е-мэйл министра обороны? :-))
Vasya2000	опубликован 20-01-2002 11:08 MSK У MYSTIQUE. Он же уже сканирует секретные файлы с адресами, там таких лохов как министр обороны - пруд пруди.
AlexR	опубликован 20-01-2002 11:10 MSK Теперь понял.
Vasya2000	опубликован 20-01-2002 11:13 MSK 2 AlexR : Кстати, спасибо за осх, но мне милее это дело в виде класса;)
AlexR	опубликован 20-01-2002 11:14 MSK to Vasya2000: Мне тоже, но когда лень писать, пользуюсь *.ocx.
MYSTIQUE	опубликован 20-01-2002 12:58 MSK Тут вообще кроме меня вирмэйкеры есть!!!
aker13	опубликован 20-01-2002 14:15 MSK o, da , eto moy dvoyurodniy brat, on na Asemblere napisal odin vir, DR.Web ne nashel, no eto bilo 7 let nazad v shkolniye vremena. No kogda ti svoy vir dakonchish nam toje dash, no do etogo nam skaji :)
AlexR	опубликован 20-01-2002 15:41 MSK to MYSTIQUE: ты в своём черве ещё сделай такую вещь, чтобы он ещё тебе на е-мэйл отправлял адреса всех, кому был разослан.
AlexR	опубликован 20-01-2002 16:22 MSK to MYSTIQUE: и ещё чтобы червь при запуске копировался в "C:\Windows\System\" и запускался.
MYSTIQUE	опубликован 20-01-2002 19:46 MSK O'k уже работаю над этим!!!
Lamer	опубликован 20-01-2002 22:35 MSK Ну, вирмейкер ты наш, я когда-то "вначале пути" только написанием разных вирусаков и занимался. Поверь, это дело бесполезное, а на ВБ - просто бессмысленно. Ну, MYSTIQUE, где ты видел таких идиотов-министров, которые, забив свой хард секретной информацием, сознательно установят твою прогу и выйдут в нет. Принцип I-Worm.Apost с архивом работает лишь в 10% случаев (статистика из нета), к тому же сам пакет тоже надо уметь составить! Послушай мой совет, если хочешь всем сильно испоганить жизнь, то вирус должен состоять из единого ехе-файла, который бы работал независимо от версии виндов. Или пиши уж лучше вирусы на VBScript, как другие умные люди! Кстати, если хочешь ввести тупых юзеров в глубокое раздумье, пусть червь после рассылки и т. п. удаляет на диске все файлы *.VXD.
MYSTIQUE	опубликован 20-01-2002 22:46 MSK Уговорили,попробую че нибудь на С++ изобразить!!!
7in	опубликован 20-01-2002 23:41 MSK Сколько советчиков развелось!!! :)))))) Даже Lamer, который писал "К тому же вирусописание - это, прежде всего неуважение чужого труда!" :))))) Ну я тоже чё-нть добавлю тогда :) e-mail'ы можно ещё из ICQ тырить :)
MYSTIQUE	опубликован 20-01-2002 23:52 MSK Если знаешь как через Асю напиши как,плиз!!!
cr	опубликован 21-01-2002 13:11 MSK Червь.. хм.. на VB.. exe-файл.. MYSTIQUE, по-моему ты неудачно язык выбрал для червя... Их так никто не делает, т.к. НИКТО не будет запускать пришедший по емылу exe'шник, предварительно его не проверив.. Червей пишут так, что они автоматически запускаются при открытиии письма, а для этого используются VBS, JS, VBA, WSH.. Самый ходовый VBS.
AlexR	опубликован 21-01-2002 19:17 MSK Вообще червя лучше писать на Си.
MYSTIQUE	опубликован 21-01-2002 23:09 MSK Кстати нащет того чтобы сам запускался ,если кому не влом опишите плиз как использовать дырку -IFRAME-!!!!(Если кто не в курсе эту дыру использовали Nimda,Badtrans,BadtransII)
cr	опубликован 23-01-2002 15:50 MSK 'функция, вытаскивающая email адреса из предложенного текста. 'Перебирай все файлы на диске, ищи среди них текстовые и 'используй эту функцию ':) но так никто не делает. Отправку осуществляют с пом. оутлока и его адресной книги Public Function GetEmail(Inp As String) As String Dim chrAt As String Dim chrOpen As String Dim chrClose As String Dim phrHREF As String Dim phrMailTo As String Dim strFirst As String Dim strLast As String Dim strEmail As String chrAt = InStr(1, Inp$, "@") chrOpen = InStr(1, Inp$, "<") chrClose = InStr(1, Inp$, ">") phrHREF = InStr(1, Inp$, "<a href=") phrMailTo = InStr(1, Inp$, Chr$(34) & "mailto:") strFirst = InStr(1, Inp$, "<a href=" & Chr$(34) & "mailto:") strLast = InStr(1, Inp$, Chr$(34) & ">") If chrOpen Then If chrClose Then If phrHREF Then If phrMailTo Then If strFirst Then If strLast Then Inp$ = Mid$(Inp$, phrMailTo + 8) GetEmail$ = Mid(Inp$, 1, InStr(1, Inp$, Chr$(34)) - 1) End If End If End If End If End If End If End Function
Lamer	опубликован 26-01-2002 12:31 MSK IFRAME была окончательно заделана ещё в Internet Explorer 4.0, а другие броузера IFRAME вообще не поддерживают!
AlexR	опубликован 26-01-2002 17:35 MSK to MYSTIQUE: зайди сюда: http://www.uinc.ru:8101/articles/index.shtml http://digital-t.chat.ru/iloveyou.html http://delphi.diagnostic.ru:8101/archivedec.html http://xuyaker.narod.ru/index3.htm