Задача - удалить из файла базы все пары log;pass в которых пароль меньше 8 символов.
Идеи?
P.S Ищу - скрипт, решающий эту задачу(пхп\перл),код на Делфи,или лучшим вариантом отдельная тулза с простым интерфейсом.
P.S.S Не кидаться какашками мол," в школе паскаль не учил?" и т.д :rolleyeyes:
Jumper
11.03.2011, 00:27
ну это не сложно, кидаешь на форму 2 TMEMO, OpenDialog, грузишь в 1 мемо - акки, во 2 - пассы.
и делаешь цикл:
for (int i= 0; i<Memo1->Lines->Count; i++)
{
if (Length(Memo2->Lines->Strings[i])<8)
{
Delete(Memo1->Lines->Strings[i]);
Delete(Memo2->Lines->Strings[i]);
}
}ну или делай как знаешь)
SetFer
11.03.2011, 00:36
ну это не сложно, кидаешь на форму 2 TMEMO, OpenDialog, грузишь в 1 мемо - акки, во 2 - пассы.
и делаешь цикл:
ну или делай как знаешь)
А как изменить код чтоб загружать полностью файл акк;пасс,а не по-раздельности,и чтоб программа смотрела только например длину после ";"??
Простите,но... Ап темке:D
SetFer
12.03.2011, 02:18
Кому может понадобится:
<?php
$ar=file('start.txt');
$han=fopen('end.txt','a');
foreach($ar as $val)
{
$pass=explode(';',$val);
if (strlen(trim($pass[1]))>7) fwrite($han,$val);
}
fclose($han);
echo "ok";
?>
начальный файл start.txt должен находиться в папке со скриптом
обработанный (с паролями больше 7 символов) end.txt появится в папке со скриптом
после завершения работы скрипта на экран выведется "ok"