Just a random string generator from my Air Runner. This can be used for anti-ban and for creating good, safe passwords. I have yet to test it, and it was cut out of a lot of other random sayings, so I don't know for sure if it will compile. Feel free to use so long as you credit me.SCAR Code:procedure RandomStringGenerator;
var
P : Integer;
Spam : String;
begin
for P := 0 to (2+random(10)) do
begin
case random(36) of
0:Spam := Spam +'0';
1:Spam := Spam +'a';
2:Spam := Spam +'b';
3:Spam := Spam +'c';
4:Spam := Spam +'d';
5:Spam := Spam +'e';
6:Spam := Spam +'f';
7:Spam := Spam +'g';
8:Spam := Spam +'h';
9:Spam := Spam +'i';
10:Spam := Spam +'j';
11:Spam := Spam +'k';
12:Spam := Spam +'l';
13:Spam := Spam +'m';
14:Spam := Spam +'n';
15:Spam := Spam +'o';
16:Spam := Spam +'p';
17:Spam := Spam +'q';
18:Spam := Spam +'r';
19:Spam := Spam +'s';
20:Spam := Spam +'t';
21:Spam := Spam +'u';
22:Spam := Spam +'v';
23:Spam := Spam +'w';
24:Spam := Spam +'x';
25:Spam := Spam +'y';
26:Spam := Spam +'z';
27:Spam := Spam +'1';
28:Spam := Spam +'2';
29:Spam := Spam +'3';
30:Spam := Spam +'4';
31:Spam := Spam +'5';
32:Spam := Spam +'6';
33:Spam := Spam +'7';
34:Spam := Spam +'8';
35:Spam := Spam +'9';
end;
end;
writeln(Spam);
end;




Reply With Quote












