يعين النظام كلمات مرور عشوائية

نسخة الكود كما يلي:

<٪

يخصص النظام كلمات مرور عشوائية

وظيفة createpass ()

ديمران ، أنا ، الطول

الطول = 6

CreatePass = ""

fori = 1tolengthNum

عشوائي

RAN = CINT (RND*2)

عشوائي

ifran = 0then

RAN = CINT (RND*25) +97

CreatePass = CreatePass & Ucase (Chr (RAN))

elseifran = 1th

RAN = CINT (RND*9)

CreatePass = CreatePass & RAN

elseifran = 2th

RAN = CINT (RND*25) +97

CreatePass = CreatePass & CHR (RAN)

Endif

التالي

الوظيفية

استجابة. writecreatepass ()

٪>