генератор ключей

[Chuvak]

поделитесь функцией генерирования ключа примерно на 10 символов, состоящего из букв (желательно латинских) и цифр

[skiperski]

Код: Выделить всё

Option Explicit

Public Function GenPassword(Optional ByVal Length As Long = 5) As String
   
    Dim i&, s$
   
    Call Randomize
   
    s = vbNullString
    Do While (Len(s) < Length)
        i = Rnd() * 255
        Select Case i
        Case 48 To 57, 65 To 90, 97 To 122
            s = s & Chr$(i)
        End Select
    Loop
   
    GenPassword = s
   
End Function

Immediate

Код: Выделить всё

?GenPassword(10)
f8cH5u9M93
?GenPassword
L2Nnu

[alibek]

skiperski, ну нельзя же так
надо хотя бы вставить Randomize Timer*I/256

[MEMBER]

Может я и ошибаюсь, но камраду Chuvak нужен обратимый алгоритм. Или нет?

[skiperski]

Есть и обратимый, но он принадлежит фирме. Платить денег за его разглашение я не желаю. В сети и без того много всяческого добра.

[MEMBER]

2 skiperski
Ну что вы смотрите букой? Я, вообще-то, просто уточнял у Chuvak что его интересует, а вас сразу на серьёзность пробило. Платить, много добра...

[Chuvak]

спасибо всем
всё реально и как надо

[Urvin]

Вопрос: А как ключгеном на рнд пользоваться? Ролики едут?
Хороний способ типа того:

Код: Выделить всё

Function KodeGen(Login) as string
    a = Asc(login)
    b = hex(asc(login) + asc(mid(login,1,1)))
    c= hex(len(login))
    d = cstr(a) & b & c
    KodeGen=d
end function

Можно и дальше продолжать.... Это будет реально работать. А то на РНД!