-
Pascal help
Значи нуждая се от малко помощ относно една програма за извеждане на пароли с паскал
аз стигнах до тук :
Program PassGenerator;
uses Crt;
Procedure PassGen(n : integer);
var
i : integer;
s : string;
begin
randomize;
if (n = 1) then
for i:= 1 to 15 do
write(random(10))
else if (n = 2) then
for i := 1 to 15 do
write(chr(random(25) + 97))
else if (n = 3) then
for i := 1 to 15 do
begin
if (random(100) mod 2 = 1) then
write(chr(random(10) + 48))
else
write(chr(random(25) + 97));
end;
writeln;
end;
procedure PrintTxt;
begin
writeln('1.Parola ot cifri');
writeln('2.Parola ot bukvi');
writeln('3.Parola ot cifri i bukvi');
writeln('4.Izhod');
writeln;
end;
var
i,n : integer;
begin
repeat
PrintTxt;
write('Izbor:'); readln(n);
if (n <> 4) then
begin
PassGen(n);
writeln('Press any key to continue...');
readln;
clrscr;
end;
until (n = 4);
end.
самоче трябва да се направи така че когато се избере 3 да изкарва пас от малки и голями букви + цифри
проблема е че незнам как [:(]
-
Pascal help
<pre id='pre'><font size=2>
var c:Char;
......
for i := 1 to 15 do begin
repeat
c:=chr(random(255));
until (c in ['0'..'9','A'..'z','А'..'я']);
end;
....
</font></pre id='pre'>
Това ще работи на Delphi, за паскал не съм сигурен.[:)]
-
Pascal help
Правиш 1 функция за добавяне за малки, 2ра за големи, 3та за цифри... 4 та функция за смесено, тя може да бъде
var n, i: integer;
st : string;
begin
randomize;
st:='';
for i:=1 to 15 do
begin
n:=random(2);
case n of
0: st:=st + (функция за прибавяне на цифри);
1: st:=st + (функция за прибавяне на малки букви);
2: st:=st + (функция за прибавяне на големи букви);
end;
end;
end;
Това е малко по бързо от варианта на Sage, но пък е по дълго за писане ;)
