• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

Returns random value from range

Parameters:
start	First value in range
end	Last value in range

global
procedure GeneratePassword(record CUVc CUr,var string passwd,Integer passlen)
begin
  string 100 ast;
  LongInt pos;
  LongInt i;
  
  passwd = "";
  ast = "C3DrsEJbGcKLM5Nuvw89PQijRS67pqThkUVW24XYZadefgFHAmnotxyz1Bes8"; // 61 characters
  for (i=0;i<passlen;i=i+1) begin
    pos = Random(0,61);
    passwd = passwd & Mid(ast,pos,1);
  end;
  return;
end;

Related topics: