Locked Funcion RND "Cadena Aleatoria" [By Pink]

[Expermicid]

[lenguaje=delphi]{Delphi Version: 7.2

Author..........: Pink

Script Function...: Random String

Uso..............: RND(largo de cadena en numero)

Ejemplo: showmessage(RND(200)); }

 

 

Function RND(len: integer): string;

var

cadena:string;

Ram:integer;

x:integer;

 

begin

cadena:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw xyz$%&[]\()*+,@-./0123456789:;<=>?^_`‡¶€„…†‡ˆ‰Š‹Œ1Ž1?‘’“•–—˜™š›œ1žŸ¡¢£¤¥¦§¨©ª«¬1®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑ ÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ';

for x:=1 to len do

begin

Ram:=random(213)+1;

Result:=Result+cadena[Ram];

end;

end; [/lenguaje]

Edited February 16, 2014 by Expermicid