Главная страница
    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.52 MB
Время: 0.035 c
15-1182515400
stone
2007-06-22 16:30
2007.07.22
Тело Ленина может быть захоронено до конца 2007 года


15-1182315569
Layner
2007-06-20 08:59
2007.07.22
Visual Studio 2005


15-1181119220
Bogdan1024
2007-06-06 12:40
2007.07.22
ошибки при установке MS Office 2007


15-1182833764
pavel_guzhanov
2007-06-26 08:56
2007.07.22
Есть тут спецы по php и iis?


8-1161881446
eRoR_rrr
2006-10-26 20:50
2007.07.22
TImage и *jpg





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский