gen(n)  ; n - какой длины
 ;s n= 10 
 n pwd,letters,i
 s letters="#$^&*tyupa123..."  
 s pwd="" f i= 1 : 1 :n s pwd=pwd_$e(letters,$r($l(letters))+ 1 )
 q pwd

Class %SYSTEM.Encryption Extends Help [ Abstract ]
{
...
/// Return an MD5 hash of a string.
/// This class method will return a MD5 hash of the passed text. 
/// The returned string is  16  bytes in length. This function is usefull 
/// for hashing passwords, or other strings.
ClassMethod MD5Encode(text As %String) As %String
{
}
...
}

set hash=$system.Encryption.MD5Encode("der password")
...
if hash=$system.Encryption.MD5Encode("der password") {
 w "гутен таг",!
}else {
 w "алярм!!!!"
}