PDA

Просмотр полной версии : Как создать генератор паролей на delphi 6

R-E-S-T
22.04.2009, 14:56
Как создать генератор паролей на delphi 6.Помогите пожайлуста
De-visible
22.04.2009, 15:08
random + randomize....
R-E-S-T
22.04.2009, 15:10
Понятон
SmanxX1
22.04.2009, 15:25
function RndString(Len:integer):string;
var
i:integer;
begin
randomize;
for i:=1 to Len do
Result:=Result+Chr($30+Random($4D)); //0 - }
end;
Как-то так.
Символы выбираются из диапазона 0x30 - 0x7d (0 - }) ASCII таблицы.
R-E-S-T
22.04.2009, 15:26
точно
Jim_Di
23.04.2009, 23:44
будет лучше, если ещё какие-то данные к этому делу присобачить. наапример, потом пройтись по нему простейшим шифрованием, используя xor или придумать ещё чего-нибудь позаковыристей.

можно перемешивать символы каких-либо введённых данных и потом генерировать хэш, вобщем раздолье для фантазии =)
RumShun
24.04.2009, 05:22
делал такой как раз на Д6 вот исходник
_http://depositfiles.com/files/yrofsyyeh
посмотри мож пригодится