- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
sub GenRandomHash()
{
my $self=shift;
my $number=shift||10;
my $plain='';
my @chars=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
for (my $i=0;$i<$number;$i++)
{
$plain.=$chars[rand(59)+2];
}
return $plain;
}