HTDark | Underground Hacking Forum and Cybersecurity Community
  • Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

Delphi RandStr [By Metal]

Status
Not open for further replies.
E

Expermicid

Leech
User
Joined
Oct 23, 2011
Messages
285
Reputation
0
Reaction score
255
Points
63
Credits
0
‎13 Years of Service‎
95%
[lenguaje=delphi]function RandStr(Longitud: integer): string;

var

i: integer;

const

Letras: string = 'qwertyuiopasdfghjklñzxcvbnmQWERTYUIOPASDFGHJKLÑZXCVBNM1234567890!"·%&/()=?¿¡';

begin

result:='';

for i:= 1 to longitud do

begin

Result:= Result + Letras[random(Length(Letras)) + 1];

end;

end;[/lenguaje]

Autor: Metal_Kingdom

Fuente: UDT

 
Last edited by a moderator:
Status
Not open for further replies.
Back
Top