Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Генератор паролей 


Фэ   (2002-01-16 14:55) [1]

Вот что-то похожее.

function RandomRangeString_(Lmin,Lmax: Integer; Up:Boolean): String;
var
x,sl: integer;
begin
result := sNULL;
sl := RandomInteger_(Lmin,Lmax); {длина строки от Lmin до Lmax}
while Length(result) <= sl do begin
x := Byte(RandomInteger_(32, 255)); {общий диапазон символов}
if chr(x) in LatChars then {фильтр}
result := result + chr(x);
end;
if Length(result) > Lmax then
result := Copy(result, 1, Lmax);
if Up then Result := AnsiUpperCase(Result);
end;

function RandomInteger_(iLow, iHigh: Integer): Integer;
begin
result := Trunc(Random(iHigh - iLow)) + iLow;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.023 c
14-8984           vuk                   2001-12-13 18:50  2002.02.04  
Вводим в Yandex при поиске слово


4-9028            fag2000@ok.ru         2001-12-07 12:44  2002.02.04  
Как удалить OLE объект во время выполнения его метода


7-9018            Spiritbad             2001-10-25 12:47  2002.02.04  
Про порты.


1-8954            Лана Розанова         2002-01-18 12:10  2002.02.04  
Программа и память.


1-8865            ctapik-net            2002-01-21 15:40  2002.02.04  
Создание электронного письма через ShellExecute