ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
04.04.2010, 01:07
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от TENMAX
Плиз нужен совет.
Нужно вывести мыло:пароль
существуют строки:
1. Пароль
try
Fil.LoadFromFile('password1.txt');
Fil.LoadFromFile('password2.txt');
except
Showmessage('Файл не найден');
end;
Temp:=fil.strings[random (fil.count-1)];
Data.add ('user.password1='+temp);
Data.add ('user.password2='+temp);
2. Логин (от мыла , до @)
Data.Add('user.login='+fil.strings[random(fil.count-1)]);
Как мне то что получилось после реги, то есть мыло:пароль вывести в мемо ?
Memo1.Lines.Add(''); - что в скобках писать ? или как то строки можно вписать, то есть их номера.
Спасибо заранее!
1. Обрезать логин от мыла:
2. Записать строкой в Мемо Логин:Пароль
PHP код:
const
str='Administrator@mail.ru';
Password= '123456';
var
Login:string;
begin
Login:=Copy(str,1,Pos('@',str)-1); {1. В Login сохранится Administrator}
Memo1.Lines.Add(Login+':'+Password); {2. В мемо добиватся строка Administrator:123456}
end;
|
|
|
03.04.2010, 23:48
|
|
Участник форума
Регистрация: 01.01.2009
Сообщений: 138
Провел на форуме:
817404
Репутация:
82
|
|
как сделать какоето действие с каждой строкой из текстовика
дайте примерчик хороший плиз)
|
|
|
|
04.04.2010, 00:56
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от Vlad&slav
как сделать какоето действие с каждой строкой из текстовика
дайте примерчик хороший плиз)
Код:
var textFile: TStringList;
i: integer;
begin
textFile:=TStringList.Create;
textFile.LoadFromFile('Путь_К_текстовику');
for i:=0 to textFile.Count - 1 do begin
//здесь что-то делаем, обращаясь к конкретной строке как textFile[i]
end;
end;
end.
легко...
Как отследить нажатие горячих клавишь?
Например, если нажата комбинация alt f4, тогда вылазиет мессаджбокс с каким то текстом.
ps Пример нужен для winapi.
http://www.cyberguru.ru/delphi-sources/keyboard/perekhvat-hook-klaviatury-programma-sendkeys.html
|
|
|
|
04.04.2010, 00:05
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Как отследить нажатие горячих клавишь?
Например, если нажата комбинация alt f4, тогда вылазиет мессаджбокс с каким то текстом.
ps Пример нужен для winapi.
|
|
|
|
04.04.2010, 06:55
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
Провел на форуме:
2793173
Репутация:
297
|
|
Как сделать чтобы въводился с сайта текст между ффф и шшш символами? Т.е. Например есть там текст на сайте "ыуа11.фффJMTDAGPJшшш" и надо чтобы выводилось только JMTDAGPJ в самой программе  |
|
|
|
04.04.2010, 13:56
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от winlogon.exe
Как сделать чтобы въводился с сайта текст между ффф и шшш символами? Т.е. Например есть там текст на сайте "ыуа11.фффJMTDAGPJшшш" и надо чтобы выводилось только JMTDAGPJ в самой программе
PHP код:
function ParserBlock(const Str:string; const Param1,Param2:string):string;
var
BeginPos,
EndPos:integer;
TempStr:string;
begin
TempStr:=Str;
BeginPos:=AnsiPos(Param1,TempStr)+length(Param1);
delete(TempStr,1,beginPos-1);
BeginPos:=AnsiPos(Param1,TempStr)+length(Param1);
EndPos:=AnsiPos(Param2,TempStr);
Result:=copy(TempStr,1,EndPos-1);
end;
Применять:
PHP код:
ShowMessage(ParserBlock('ыуа11.фффJMTDAGPJшшш', 'ффф','шшш ')); // JMTDAGPJ
Содержимое страницы:
PHP код:
Str:=idHttp1.Get('http://127.0.0.1'); // получить содержимое страницы.
Последний раз редактировалось JnK; 04.04.2010 в 14:16..
|
|
|
|
04.04.2010, 16:39
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
Провел на форуме:
2793173
Репутация:
297
|
|
Сообщение от JnK
[PHP]
Применять:
PHP код:
ShowMessage(ParserBlock('ыуа11.фффJMTDAGPJшшш', 'ффф','шшш ')); // JMTDAGPJ
а как чтобы не ('ыуа11.фффJMTDAGPJшшш', было, а то, что на сайте, и от туда извлекало? Значение между ффф и шшш всегда разное (
Последний раз редактировалось winlogon.exe; 04.04.2010 в 16:58..
|
|
|
|
04.04.2010, 19:47
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от winlogon.exe
а как чтобы не ('ыуа11.фффJMTDAGPJшшш', было, а то, что на сайте, и от туда извлекало? Значение между ффф и шшш всегда разное (
вместо 'ыуа11.фффJMTDAGPJшшш' подставляешь переменную Str,
вместо ффф тег который перед нужным текстом,
вместо шшш тег, который в конце.
выводит текст между тегами <title> </title>
PHP код:
var
str:string;
begin
Str:=idHttp1.Get('http://forum.antichat.ru/');
ShowMessage(ParserBlock(Str, '<title>','</title>')); // Форум АНТИЧАТ - безопасность WEB - интерфейсов
end;
P.s. но если подобное выражение встречается несколько раз, то тут надо обрезать ненужный текст, или можно дописать функцию, что бы начальная позиция начиналась не с 1 символа, a с N.
Последний раз редактировалось JnK; 04.04.2010 в 19:51..
|
|
|
|
04.04.2010, 21:31
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
Провел на форуме:
2793173
Репутация:
297
|
|
Сообщение от JnK
вместо 'ыуа11.фффJMTDAGPJшшш' подставляешь переменную Str,
вместо ффф тег который перед нужным текстом,
вместо шшш тег, который в конце.
выводит текст между тегами <title> </title>
PHP код:
var
str:string;
begin
Str:=idHttp1.Get('http://forum.antichat.ru/');
ShowMessage(ParserBlock(Str, '<title>','</title>')); // Форум АНТИЧАТ - безопасность WEB - интерфейсов
end;
P.s. но если подобное выражение встречается несколько раз, то тут надо обрезать ненужный текст, или можно дописать функцию, что бы начальная позиция начиналась не с 1 символа, a с N. спасибо большое
|
|
|
|
04.04.2010, 11:01
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 272
Провел на форуме:
2083691
Репутация:
330
|
|
Считывай побайтово строку до тех пор пока не найдешь подряд 3 "ффф", записывай порядковый номер последнего ( var1 ) и продолжай считывать до тех пор пока не встретишь сочетание из "шшш". Записывай порядковый номер первого из них ( var2 ). Затем просто выводи символы в диапазоне от var1+1 до var2-1.
--
Ну короче говоря ты ничего не понял, так что юзай регулярку.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид