Страница: 1 |
Привет, нужна помощь… Нужно вытащить адреса из адресной книги Аутлук Экспресс. Я нашёл в МСДН АПИ функции по этому поводу, но там такая мутатень… Кто пытался переводить, тот меня поймёт. Поэтому если у кого есть исходники на эту тему, то поделитесь пожайлуста. Или на кройняк укажите какие именно функции мне нужно использовать. Или может как-нить вытащить адреса напрямую из базы данных. Я смотрел на этот файл (вроде *.wab), но там всё зашифровано, может у кого есть код расшифровывающий этот файл. Короче поделитесь, плиз, всем чем можете.
Глупости какие. Ничего там не зашифровано, адреса лежат в уникоде в самом, что ни на есть, открытом виде. Отсюда вывод: искать в множестве четных символов (или нечетных, как там?) последовательность, состоящую из латинских букв (строчных и заглавных), собаки, знака подчеркивания, тире и точки такую, чтобы та последовательность содержала одну собаку и хотя бы одну точку. Все такие строки с вероятностью 95% будут адресами e-mail У меня был в ][акере исходник вируса на VBS. Там адреса Аутлука брались из реестра. Спасибо большое, кто помог. В ][акере я тоже видел этот исходник, но чё-то не вспонил о нём. А вот насчёт того, что в зашифрованном виде всё в wab файле меня внатуре конкретно проглючило. Просто я в виндовс камандере F3 нажал, поискал символ @, а оно ничего не нашло. А что кодировки можно поменять как-то и в голову не пришло... Спасибо большое!!! Ну юникод... Как там эта штука называется? Кстати, если я открою в VB как текстовый файл этот файл, оно будет как бы юникод? Ну всмысле я найду там адрес? Или ещё чё то сделать надо? StrConv(txtText.Text, vbUnicode) ??? Это?? Страница: 1 |
Вопрос: Как достать адрес из адресной книга Аутлук Эксп...
Добавлено: 17.01.04 03:56
Автор вопроса:
goodroman | Web-сайт:
Ответы
Всего ответов: 8
Номер ответа: 1
Автор ответа: Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #1
Добавлено: 17.01.04 22:18
Номер ответа: 2
Автор ответа: Александр
Разработчик Offline Client
ICQ: 204034
Вопросов: 106
Ответов: 1919
Профиль | | #2
Добавлено: 18.01.04 15:00
Номер ответа: 3
Автор ответа: goodroman
ICQ: 307245054
Вопросов: 5
Ответов: 7
Web-сайт:
Профиль | | #3
Добавлено: 20.01.04 10:07
Номер ответа: 4
Автор ответа: Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #4
Добавлено: 20.01.04 10:20
Какие еще кодировки? Код собаки меньше 128.
Номер ответа: 5
Автор ответа: goodroman
ICQ: 307245054
Вопросов: 5
Ответов: 7
Web-сайт:
Профиль | | #5
Добавлено: 20.01.04 10:28
Номер ответа: 6
Автор ответа: Александр
Разработчик Offline Client
ICQ: 204034
Вопросов: 106
Ответов: 1919
Профиль | | #6
Добавлено: 20.01.04 11:47
Номер ответа: 7
Автор ответа: Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #7
Добавлено: 21.01.04 17:51
Просто читай по 2 символа, а в строку пиши один.
Номер ответа: 8
Автор ответа: Павел
Администратор
ICQ: 326066673
Вопросов: 368
Ответов: 5968
Web-сайт:
Профиль | | #8
Добавлено: 22.01.04 10:40
Или используй функцию StrConv с параметром vbFromUnicode.