ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
20.05.2009, 15:40
|
|
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
Провел на форуме:
813785
Репутация:
314
|
|
ы
Сообщение от a1t
нужна помощь
в общем во время запуска программы чтобы выходило окошко с вводом имени и пароля, логин и пароль должен храниться в проге в виде текстовика и если он совпадает то можно продолжить работу, если нет то автоматический выход
заранее спс
http://sderni.ru/33604
|
|
|
20.05.2009, 15:46
|
|
Познающий
Регистрация: 04.03.2009
Сообщений: 31
Провел на форуме:
50236
Репутация:
2
|
|
Сообщение от a1t
нужна помощь
в общем во время запуска программы чтобы выходило окошко с вводом имени и пароля, логин и пароль должен храниться в проге в виде текстовика и если он совпадает то можно продолжить работу, если нет то автоматический выход
заранее спс
 А что составит труда выдернуть твой пасс через restorator ну максимум olly dbg
|
|
|
|
20.05.2009, 16:33
|
|
Познающий
Регистрация: 05.03.2007
Сообщений: 99
Провел на форуме:
744734
Репутация:
44
|
|
Как в делфи можно проверить существует ли файл по адрессу URL или нет?
Нужно для проверки обновлений программы. При открытии приложения, происходит проверка существования "http://site.ru/new1.rar", если существует, то вывести сообщение со ссылкой, если нет, то ничего не делать и продолжить работу приложения.
|
|
|
|
20.05.2009, 16:35
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме:
6075534
Репутация:
2731
|
|
Indy
|
|
|
|
20.05.2009, 17:52
|
|
Познающий
Регистрация: 05.03.2007
Сообщений: 99
Провел на форуме:
744734
Репутация:
44
|
|
Сообщение от mailbrush
Indy
А как сам код будет выглядедть?
|
|
|
|
20.05.2009, 19:01
|
|
Новичок
Регистрация: 26.10.2008
Сообщений: 15
Провел на форуме:
126398
Репутация:
6
|
|
Сообщение от Mosvit
Как в делфи можно проверить существует ли файл по адрессу URL или нет?
Как вариант использовать API-функцию IsValidUrl из модуля UrlMon. Смотри MSDN.
|
|
|
|
20.05.2009, 19:08
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
Данная функция позволяет Вам проверить существование определённого адреса(URL) в интернете. URL может быть как с префиксом http:// так и без него - эта функция добавляет префикс http:// если он отсутствует (необходимо для функции internetOpenUrl которая так же поддерживает FTP:// и gopher:// Эта функция проверяет только два возвращаемых кода '200'(ОК) или '302' (Редирект), но Вы можете заставить проверять функцию и другие коды. Для этого достаточно модифицировать строчку "result := ".
PHP код:
uses wininet;
function CheckUrl(url: string): boolean;
var
hSession, hfile, hRequest: hInternet;
dwindex, dwcodelen: dword;
dwcode: array [1..20] of char;
res: pchar;
begin
if pos('http://', lowercase(url)) = 0 then
url := 'http://'+url;
Result := false;
hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if assigned(hsession) then
begin
hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
dwIndex := 0;
dwCodeLen := 10;
HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
res := pchar(@dwcode);
result := (res = '200') or (res = '302');
if assigned(hfile) then
InternetCloseHandle(hfile);
InternetCloseHandle(hsession);
end;
end;
|
|
|
|
21.05.2009, 03:14
|
|
Участник форума
Регистрация: 13.08.2008
Сообщений: 146
Провел на форуме:
1445936
Репутация:
159
|
|
Помогите с паскалем пожалуйста 
Нужна функция, которая будет сравнивать символы одной строки с символами другой строки и возвращать символы, которых не хватает в первой строке для образования второй.
т.е например:
1-я строка: 123456543
2-я строка: 1234567890
ответ: 7890 |
|
|
|
21.05.2009, 05:23
|
|
Познающий
Регистрация: 12.05.2009
Сообщений: 45
Провел на форуме:
255342
Репутация:
28
|
|
ViP-K1LLeR
Код:
var str1,str2,res:string;
i1,i2:integer;
add:boolean;
begin
str1:='123456543';
str2:='1234567890';
res:='';
for i2:=1 to length(str2) do
begin
add:=true;
for i1:=1 to length(str1) do if str2[i2]=str1[i1] then add:=false;
if add then res:=res+str2[i2];
end;
writeln(res);
readln;
end.
|
|
|
|
21.05.2009, 18:40
|
|
Участник форума
Регистрация: 11.05.2008
Сообщений: 202
Провел на форуме:
420713
Репутация:
104
|
|
Код:
program case_ ;
uses crt;
type Coms=(hi,go);
var a:Coms;
b:byte;
BEGIN
clrscr;
readln(); { Как ввести строку на проверку }
{
readln(b);
case b of
1: writeln('Welcome');
2: writeln('Look out');
3: writeln('he-he');
4: writeln('Bye');
else
writeln('Not here');
end;
}
case a of
hi: writeln('Welcome');
go: writeln('Look out');
else
writeln('Error');
end;
readln;
END.
Числом вводить все понятно
как сделать чтоб оператор case выдавал варианты из введеного слово ? |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
