Zitat von
Shakyamuni:
Code:
procedure TForm1.GenerierenClick(Sender: TObject);
begin
zahl1 := strtoint(Anzahl.text);
Generated.Text := PassWort(zahl1);
end;
function TForm1.PassWort(PLen:Integer):String;
begin
Randomize;
str:='1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ|<>^°!§$%&/=?+#*-';
Result:='';
repeat
Result:=Result+str[Random(Length(str))+1];
until(Length(Result)=PLen)
end;
Dieses Programm ist nicht dazu gedacht, um es als Gerüst für ein Brute-Force-Programm zu dienen.
Außerdem bitte ich darum, dies nicht als sein eigenes zu verkaufen, egal, ob gegenüber
seiner Freunde, Lehrer oder Dozenten. Es kann gerne als Programmierhilfe genutzt werden.
Lg,
Shakyamuni
Hallo und Willkommen in der
DP!
Ich will dich nicht persönlich angreifen, aber so ein Programm, mit ähnlichem Code habe ich auch schon vor 2 Monaten geschrieben.. Also eig schön älter aber die aktuelle Version ist 2 Monate alt.