Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.07.22;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.52 MB
Время: 0.045 c
1-1179287475
kukuikar
2007-05-16 07:51
2007.07.22
Синхронизатор: проблема быстрой проверки большого кол-ва файлов


1-1179317628
DVM
2007-05-16 16:13
2007.07.22
Почему Access Violation?


15-1182442216
oxffff
2007-06-21 20:10
2007.07.22
Codegear Roadmap


2-1182855821
Vazhik
2007-06-26 15:03
2007.07.22
Консольное приложение


2-1182513679
cosinus
2007-06-22 16:01
2007.07.22
Помогите с EnumChildWindows ...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский