Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

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

 
Фэ ©   (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;



Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
4-9030
swr
2001-12-06 09:41
2002.02.04
Анимированный курсор


1-8876
NLO
2002-01-15 06:35
2002.02.04
Загрузить иконку зарегистрированного расширения в ImageList


7-9011
stalker17
2001-10-20 16:00
2002.02.04
COM порт


1-8849
Ser_Kham1
2002-01-21 09:43
2002.02.04
HWND


7-9013
Orpheus
2001-10-24 12:34
2002.02.04
Проблемка