Funcion RND "Cadena Aleatoria"
Publicado: 18 Sep 2012, 22:39
Bueno aquí les dejo mi primera función en Delphi para irme introduciendo, "Es una que ya hice en autoit". espero que les sirva.
Gracias al compa Metal_Kingdom por su orientación y ayuda en el montón de dudas que siempre me aclara.
Saludos
Gracias al compa Metal_Kingdom por su orientación y ayuda en el montón de dudas que siempre me aclara.
Código: Seleccionar todo
{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;Saludos