Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.22;
Скачать: CL | DM;

Вниз

генератор паролей   Найти похожие ветки 

 
lehich   (2007-06-25 10:47) [0]

собственно сабж, может есть у кого с исходниками...

Заранее премного благодарен!


 
vamp_avp   (2007-06-25 11:09) [1]

У меня есть


 
Игорь Шевченко ©   (2007-06-25 11:21) [2]

Функция Random - рулез фарева


 
lehich   (2007-06-25 11:23) [3]

Удалено модератором
Примечание: Личная переписка


 
palva ©   (2007-06-25 11:25) [4]

http://www.excode.ru/art4372p2.html


 
Desdechado ©   (2007-06-25 11:26) [5]

а чего там генерировать?
список допустимых символов + длина пароля + настройки повторяемости + Random
кода 10 строк


 
noname_   (2007-06-25 11:35) [6]

Только, Random надо правильно применять.

Если генерировать символы просто последовательным вызовом Random, то независимо от длины полученного пароля возможно всего 2^32 варианта, а не 256^Длина_пароля


 
lehich   (2007-06-25 11:38) [7]

> [4] palva ©   (25.06.07 11:25)
> http://www.excode.ru/art4372p2.html


спасибо!
там такая фраза есть "Ассоциируем UpDown с первым Edit-ом" это что значит?


 
palva ©   (2007-06-25 11:56) [8]


> lehich   (25.06.07 11:38) [7]
> это что значит?

Это значит, устанавливаем в UpDown свойство Associate (выбираем из выпадающего списка нужный Edit)


 
palva ©   (2007-06-25 12:02) [9]


> Desdechado ©   (25.06.07 11:26) [5]
> а чего там генерировать?

Есть всякие тонкие вопросы. Скажем, не рекомендуется использовать стандартные генераторы случайных чисел из-за их предсказуемости и маломощности. В идеале нужно использовать какой-нибудь профессиональный блочный криптоалгоритм (AES, GOST) и безопасный протокол генерации (X9.17). См. напр. здесь: http://www.intuit.ru/department/security/networksec/3/6.html


 
lehich   (2007-06-25 12:10) [10]

> [8] palva ©   (25.06.07 11:56)
>
> > lehich   (25.06.07 11:38) [7]
> > это что значит?
>
> Это значит, устанавливаем в UpDown свойство Associate (выбираем
> из выпадающего списка нужный Edit)


наверное торможу... UpDown это свойства какого компонента???


 
Desdechado ©   (2007-06-25 12:16) [11]

palva ©   (25.06.07 12:02) [9]
Судя по сабжу, это обычная лаба, скорее, даже хвост. Поэтому о каких-то изысках речь наверняка не идет.
Я, конечно, не спец в защите информации, но мне не понятно, чем отличается случайный набор символов, набранный вручную, от такового, сгенерированного X9.17. И причем тут вообще криптоалгоритмы, если речь идет только о паролях? (Хотя плохие пароли на разных алгоритмах дают интересные эффекты при криптоанализе, но, думаю, автора это не сильно интересует...)


 
БарЛог ©   (2007-06-25 12:23) [12]

Довольно часто вижу "ругание" функции Random(). Почему бы не сделать ее "нормальной"?


 
lehich   (2007-06-25 12:27) [13]

всё... допер... насчет апдаун :-)))


 
lehich   (2007-06-25 12:38) [14]

procedure TForm1.SpinKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 if (key=13) then genclick(gen) ;
end;

подскажите пожалуйста эта процедура за что отвечает??? при нажатии на что срабатывает???


 
clickmaker ©   (2007-06-25 12:41) [15]


> при нажатии на что срабатывает???

на пимпу. Со стрелочкой такая и надписью Enter, справа обычно


 
lehich   (2007-06-25 12:56) [16]

> [15] clickmaker ©   (25.06.07 12:41)
>
> > при нажатии на что срабатывает???
>
> на пимпу. Со стрелочкой такая и надписью Enter, справа обычно

спасибо тебе добрый человек :-)))


 
palva ©   (2007-06-25 12:59) [17]

Desdechado ©   (25.06.07 12:16) [11]
Да, это я согласен.


 
lehich   (2007-06-25 13:00) [18]

а если серьезно??? TForm1.SpinKeyDown это в каком компоненте процедура???


 
clickmaker ©   (2007-06-25 13:01) [19]


> в каком компоненте процедура

в Form1


 
lehich   (2007-06-25 13:13) [20]

> [19] clickmaker ©   (25.06.07 13:01)
>
> > в каком компоненте процедура
>
> в Form1


гадство... что такое Spin то этот???


 
clickmaker ©   (2007-06-25 13:15) [21]


> [20] lehich   (25.06.07 13:13)

ты нас спрашиваешь? код-то у тебя...


 
palva ©   (2007-06-25 13:16) [22]

Повесьте ее в ассоциированный Edit на KeyDown


 
lehich   (2007-06-25 13:23) [23]

> [21] clickmaker ©   (25.06.07 13:15)
>
> > [20] lehich   (25.06.07 13:13)
>
> ты нас спрашиваешь? код-то у тебя...


код из

> [4] palva ©   (25.06.07 11:25)
> http://www.excode.ru/art4372p2.html



> [22] palva ©   (25.06.07 13:16)
> Повесьте ее в ассоциированный Edit на KeyDown


спасибо!!!!


 
lehich   (2007-06-25 13:24) [24]

кстати... не нашел где идет обработка чекбокса "смесь"...


 
lehich   (2007-06-25 14:01) [25]

да и еще... есть какие-нибудь "элегантные" идеи как ограничить количество спецсимволов в пароле???


 
fdsa   (2007-06-25 14:03) [26]


> lehich   (25.06.07 14:01) [25]


есть конечно


 
lehich   (2007-06-25 14:07) [27]

выслушаю внимательно :-)))


 
lehich   (2007-06-25 15:34) [28]

> [26] fdsa   (25.06.07 14:03)
>
> > lehich   (25.06.07 14:01) [25]
>
>
> есть конечно


а поделиться??? :-)))


 
TUser ©   (2007-06-25 16:05) [29]

В идеале надо использовать не генератор сл. чисел, а какой-нибудь реально случайный процесс, например, ддвижение мышки.


 
lehich   (2007-06-25 16:13) [30]

да мне особых криптографических изысков не требуется... просто по приказу пользователям пароли виндовые и почтовые должны генератором самописаным быть сгенерированы...


 
Nic ©   (2007-06-25 16:29) [31]

Генерируйте GUID.


 
de.   (2007-06-25 16:31) [32]


procedure TMainForm.N101Click(Sender: TObject);
const a:array[1..26] of char =("a","b","c","d","e","f","g","h","i","j","k","l",
"m","n","o","p","q","r","s","t","u","v","w","x","y","z");
var i:integer;
s:string;
begin
try
s:="";
  StringList:=TStringList.Create;
  for i:=0 to length(a)-1 do StringList.Add(a[i]);
//
  Question("Ïàðîëü: "+dm.xMnuLs,sInformation);
finally
  freeandnil(StringList);
end;
end;

Работает! 8-)


 
clickmaker ©   (2007-06-25 16:32) [33]


> просто по приказу пользователям пароли виндовые и почтовые
> должны генератором самописаным быть сгенерированы

неисповедимы пути заказчиков, чесслово... сколько живу - не перестаю удивляться фантазии людской


 
de.   (2007-06-25 16:37) [34]


> de.   (25.06.07 16:31) [32]

Ой. ой. написал....
Ща.

try

            StringList:=TStringList.Create;
            for i:=0 to length(a)-1 do StringList.Add( AnsiUpperCase(a[i]));
            for i:=1 to length(txtLogin.Text) do
            s:=s+inttostr(StringList.IndexOf(txtLogin.Text[i]));
            ShowMessage(s);
            finally
                freeandnil(StringList);
             end;


 
lehich   (2007-06-26 13:38) [35]

и работает???


 
lehich   (2007-06-26 13:54) [36]

кстати значение для переменной "а" откуда берется???



Страницы: 1 вся ветка

Текущий архив: 2007.07.22;
Скачать: CL | DM;

Наверх




Память: 0.55 MB
Время: 0.041 c
6-1166518747
xman
2006-12-19 11:59
2007.07.22
DXplay "диалог соединения на русском языке"


2-1182771451
юзар
2007-06-25 15:37
2007.07.22
юзернаме


15-1182673046
Michael L Birnov
2007-06-24 12:17
2007.07.22
Как получить список Com-портов?


1-1177755932
Web
2007-04-28 14:25
2007.07.22
Печать StringGrid из под Linux a (Kylix)


4-1171050757
Dio
2007-02-09 22:52
2007.07.22
Обновление списка USB устройств