Как создать генератор паролей на delphi 6

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

 

random + randomize....

 

Понятон

 

Code:

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 таблицы.

 

точно

 

будет лучше, если ещё какие-то данные к этому делу присобачить. наапример, потом пройтись по нему простейшим шифрованием, используя xor или придумать ещё чего-нибудь позаковыристей.

можно перемешивать символы каких-либо введённых данных и потом генерировать хэш, вобщем раздолье для фантазии =)

 

делал такой как раз на Д6 вот исходник
_http://depositfiles.com/files/yrofsyyeh
посмотри мож пригодится