ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
04.04.2009, 12:59
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 Nightmarе. Для того чтобы определить какие компы в сети и какие ресурсы доступны у них, нужно заюзать WNetOpenEnum -> WNetEnumResource->WNetCloseEnum
в инете поищи исходник на тему - Вывод Списка компьютеров в локальной сети.
Там когда ты получаеш WNetEnumResource
там в dwDisplayType будет указывать что это за тип рисурса (принтер, сервер,файл, дира итд итп.)
А там чуть рекурсивно вызывать всё
Последний раз редактировалось slesh; 04.04.2009 в 13:01..
|
|
|
04.04.2009, 13:08
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 Archangelus попробуй поиграться с настройками IE.
В последних IE там сильно уж ужесточили безопасность. особеннов IE 8.
А так как WebBrowser пашет на основе IE то и все настройки распространяются на него. Лично у меня при IE8 никакими настройками не удалось это исправить.
MS наверное задумалась о безопасности в плане CDS(Cross-Domain Scripting) и залатала эту фичу.
Как вариант - ты можешь получить исходный код страници и там уже ручками отпарсить <iframe ... src= ...> Но тогда всё что будет создано через JS ты не сможешь найти.
|
|
|
|
04.04.2009, 18:16
|
|
Новичок
Регистрация: 18.03.2009
Сообщений: 5
Провел на форуме:
11685
Репутация:
0
|
|
файл в память
пишу base64 кодировшик файлов, как заменить FileOpen FileRead чем то другим... одним словом у меня программа из за использования модуля sysutils прибавляет в весе.. как обойтись без него или можно выдрать эти функции из него и засунуть в код своей программы... Дайте лучший совет
|
|
|
|
04.04.2009, 18:26
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от gashish_tema
пишу base64 кодировшик файлов, как заменить FileOpen FileRead чем то другим... одним словом у меня программа из за использования модуля sysutils прибавляет в весе.. как обойтись без него или можно выдрать эти функции из него и засунуть в код своей программы... Дайте лучший совет
можно взять и скажем использовать стандартную схему паскаля..
assign(filename,path_to_file);
reset(filename) - reading from file
rewrite(filename) - writing to file))
потом close(filename);
|
|
|
|
04.04.2009, 19:42
|
|
Новичок
Регистрация: 18.03.2009
Сообщений: 5
Провел на форуме:
11685
Репутация:
0
|
|
Сообщение от KaZ@NoVa
можно взять и скажем использовать стандартную схему паскаля..
это я уже пробовал кодирует только один символ
|
|
|
|
04.04.2009, 18:55
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от gashish_tema
пишу base64 кодировшик файлов, как заменить FileOpen FileRead чем то другим... одним словом у меня программа из за использования модуля sysutils прибавляет в весе.. как обойтись без него или можно выдрать эти функции из него и засунуть в код своей программы... Дайте лучший совет
если не хочешь лишнего гемора, упакуй UPX
|
|
|
|
04.04.2009, 21:03
|
|
Постоянный
Регистрация: 05.05.2006
Сообщений: 743
Провел на форуме:
2982851
Репутация:
107
|
|
Есть 2 формы .В главной крутится один поток из кода которого вызывается Form2.Show(); Естественно при этом 2я форма как только появляется то сразу виснет  Как это можно обойти?
ЗЫ:ShowWindow несовсем неподходит,потому как на форме надо перед её вызовом изменить свойства нескольких контролов.
Последний раз редактировалось _nic; 04.04.2009 в 21:10..
|
|
|
|
05.04.2009, 04:18
|
|
Новичок
Регистрация: 11.05.2008
Сообщений: 27
Провел на форуме:
78594
Репутация:
0
|
|
Всё равно ничего не получается.. пробовал уже все по-очереди EmbeddedWB и WebBrowser использовал |
|
|
|
05.04.2009, 12:41
|
|
Постоянный
Регистрация: 26.03.2008
Сообщений: 311
Провел на форуме:
3799424
Репутация:
479
|
|
PASCAL
Даны 2 натуральных числа. определить наибольший общий делитель и наименьшее общее кратное/
как сделать на циклах? (for )
|
|
|
|
05.04.2009, 13:18
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
#Wolf#
Наименьшее общее кратное
Код:
program nok;
var a,b,i,nd:integer;
begin
readln(a,b);
for i:=a*b downto 1 do begin
if (i mod a = 0) and (i mod b = 0) then nk:=i;
end;
write(nk);
end.
Наибольший общий делитель
Код:
program nod;
var a,b,i,nk:integer;
begin
readln(a,b);
for i:=1 to a*b do begin
if (a mod i = 0) and (b mod i = 0) then nd:=i;
end;
write(nd);
end.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
