генератор логина

Тема в разделе "Другие языки", создана пользователем zxxx, 20 июл 2010.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. zxxx

    zxxx Постоялец

    Регистр.:
    9 окт 2009
    Сообщения:
    148
    Симпатии:
    4
    Работаю с automate 7 и во многих местах требуется знать VB, никто не подскажет код для генерации логина, чтобы из отдельных букв случайно собирал слово
     
  2. diavolic

    diavolic

    Регистр.:
    17 мар 2010
    Сообщения:
    522
    Симпатии:
    102
    Код:
    <%
    'Our Function generatePassword accepts one parameter 'passwordLength'
    'passwordLength will obviously determine the password length.
    'The aplhanumeric character set is assigned to the variable sDefaultChars
    Function generatePassword(passwordLength)
    'Declare variables
    Dim sDefaultChars
    Dim iCounter
    Dim sMyPassword
    Dim iPickedChar
    Dim iDefaultCharactersLength
    Dim iPasswordLength
    'Initialize variables
    sDefaultChars="abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"
    iPasswordLength=passwordLength
    iDefaultCharactersLength = Len(sDefaultChars) 
    Randomize'initialize the random number generator
    'Loop for the number of characters password is to have
    For iCounter = 1 To iPasswordLength
    'Next pick a number from 1 to length of character set 
    iPickedChar = Int((iDefaultCharactersLength * Rnd) + 1) 
    'Next pick a character from the character set using the random number iPickedChar
    'and Mid function
    sMyPassword = sMyPassword & Mid(sDefaultChars,iPickedChar,1)
    Next 
    generatePassword = sMyPassword
    End Function
    Response.write generatePassword(6) 'Call the function & pass in 6 as the parameter 
    %>
    

    оно?
     
  3. zxxx

    zxxx Постоялец

    Регистр.:
    9 окт 2009
    Сообщения:
    148
    Симпатии:
    4
    Что-то не принимает automate этот код, пишет Script error: "Unexpected text. '<'" at script line 2 (Code: 15544)
    Давно мучался с генератором чисел и все таки нашел такого вида:
    Int((1989 - 1965 + 1) * Rnd + 1965)
    он подошел для программы, остальные вроде тоже правильные были, но не принимались
     
  4. diavolic

    diavolic

    Регистр.:
    17 мар 2010
    Сообщения:
    522
    Симпатии:
    102
    <% и %> надо было убрать
     
  5. zxxx

    zxxx Постоялец

    Регистр.:
    9 окт 2009
    Сообщения:
    148
    Симпатии:
    4
    Так тоже пробывал, похоже автомат просто не принимает такого вида код
     
  6. diavolic

    diavolic

    Регистр.:
    17 мар 2010
    Сообщения:
    522
    Симпатии:
    102
    так код то простейший. скинь ошибку сюда
     
Статус темы:
Закрыта.