Script Wanted: генератор паролей

[XLSoft]

Вот, собственно... Самому писать нет времени, может кто встречал. Нужна мешанина символов на восемь, чтобы использовала латиницу разного регистра и цифры.

[Strateg]

2XLSoft
есть же спец проги, которые это делают! Я, например выбрал себе Генератор паролей 1.2 -=By CaviN=-.
зачем так мучиться?

[Ergo]

Вроде есть у PowerPro рандомайз функция. Запускаешь ее восемь раз подряд и все. Но не помню, работает ли она с буквами.

[dAnIK SeNT]

Плагин могу написать, если скрипт не придумаете... У меня это займет минут тридцать - шаблон уже готовый есть <!--emo&:)--><!--endemo-->

[XLSoft]

2dAnIK SeNT
Угу. И желательно, чтобы буквы одного регистра и цифры не повторялись.

2Strateg
Идея же не в том, чтобы найти посторонюю прогу - их валом. <!--emo&:)--><!--endemo-->

2Ergo
Рандомайз конечно есть, но пока я его использовал не дальше, чем сгенерить случайное число, вроде random(10000).

[XLSoft]

2Strateg
Кстати, упомянутая генерилка не запоминает настройки - большой пробой. <!--emo&:(--><!--endemo-->

[Ergo]

Мне идея показалась интересной и я решил написать скрипт <!--emo&:)--><!--endemo-->

2Strateg<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->есть же спец проги, которые это делают! Я, например выбрал себе Генератор паролей 1.2 -=By CaviN=-.
зачем так мучиться? <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Можешь выкинуть ее и поставить еще одну галочку напротив ненужных программ. Прогресс человечества не стоит на месте, когда есть PowerPro <!--emo&:)--><!--endemo-->

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

; Simple Password Generator
; (c) Andrey Pyasetskiy aka Ergo
; mailto:ergo@tut.by
; save as random.powerpro in Scripts directory
; run as .random
signs = 10
; number of letters/didgits

pass = ""
for (i=0; i<signs; i=i+1)
   h = random "81"
   if (h == 0) Do
 k = "q"
   ElseIf (h == 1)
 k = "w"
   ElseIf (h == 2)
 k = "e"
   ElseIf (h == 3)
 k = "r"
   ElseIf (h == 4)
 k = "t"
   ElseIf (h == 5)
 k = "y"
   ElseIf (h == 6)
 k = "u"
   ElseIf (h == 7)
 k = "i"
   ElseIf (h == 8)
 k = "o"
   ElseIf (h == 9)
 k = "p"
   ElseIf (h == 10)
 k = "a"
   ElseIf (h == 11)
 k = "s"
   ElseIf (h == 12)
 k = "d"
   ElseIf (h == 13)
 k = "f"
   ElseIf (h == 14)
 k = "g"
   ElseIf (h == 15)
 k = "h"
   ElseIf (h == 16)
 k = "j"
   ElseIf (h == 17)
 k = "k"
   ElseIf (h == 18)
 k = "l"
   ElseIf (h == 19)
 k = "z"
   ElseIf (h == 20)
 k = "x"
   ElseIf (h == 21)
 k = "c"
   ElseIf (h == 22)
 k = "v"
   ElseIf (h == 23)
 k = "b"
   ElseIf (h == 24)
 k = "n"
   ElseIf (h == 25)
 k = "m"
   ElseIf (h == 26)
 k = "Q"
   ElseIf (h == 27)
 k = "W"
   ElseIf (h == 28)
 k = "E"
   ElseIf (h == 29)
 k = "R"
   ElseIf (h == 30)
 k = "T"
   ElseIf (h == 31)
 k = "Y"
   ElseIf (h == 32)
 k = "U"
   ElseIf (h == 33)
 k = "I"
   ElseIf (h == 34)
 k = "O"
   ElseIf (h == 35)
 k = "P"
   ElseIf (h == 36)
 k = "A"
   ElseIf (h == 37)
 k = "S"
   ElseIf (h == 38)
 k = "D"
   ElseIf (h == 39)
 k = "F"
   ElseIf (h == 40)
 k = "G"
   ElseIf (h == 41)
 k = "H"
   ElseIf (h == 42)
 k = "J"
   ElseIf (h == 43)
 k = "K"
   ElseIf (h == 44)
 k = "L"
   ElseIf (h == 45)
 k = "Z"
   ElseIf (h == 46)
 k = "X"
   ElseIf (h == 47)
 k = "C"
   ElseIf (h == 48)
 k = "V"
   ElseIf (h == 49)
 k = "B"
   ElseIf (h == 50)
 k = "N"
   ElseIf (h == 51)
 k = "M"
   Else
 k = random "9"
   EndIf
   pass = pass ++ k
endfor
clip.set(pass)
clip.paste
clip.clear

[XLSoft]

2Ergo
А так чтобы символы не повторялись? <!--emo&:)--><!--endemo-->

[Ergo]

2XLSoft<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->А так чтобы символы не повторялись?<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Можно и так сделать, только так ли это важно, что в слове из 10 символов две-три одинаковые буквы попадется?

[Ergo]

Брюс тут подсказал, как сделать этот скриптик еще проще. Скрипт стал простой как три буквы!

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

; Simple Password Generator
; (c) Andrey Pyasetskiy aka Ergo
; mailto:ergo@tut.by
; save as random.powerpro in Scripts directory, run as .random

signs = 10
; number of letters/didgits

pass = ""
for (i=0; i<signs; i=i+1)
   h = random "61"
   k = select("qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890", h-1, h-1)
   pass = pass ++ k
endfor
clip.set(pass)
clip.paste
clip.clear

А вот какие красивые паролики он генерит:

nvbTWeXnPU
szcfxG1kO1
VvEWoefUpE
2ANH1LIkOl
4ATdUFmes
SjHjRl3yHT
RlLWW7HhR
bSA6VRlNCY
ZLaBrrVvSg
2gbI22u67d

[XLSoft]

У меня в голове немного другой алгоритм крутится. Есть строка line="01234...XxYyZz". Из нее берем случайную позицию по месту random(length(line)) и записываем в pass. Следующий random-символ из line проверяем на вхождение в pass. Если он уже там есть - делаем следующую random-выборку, если нет - дописываем к pass и т.д.
Выгода - можно в любой момент быстро поменять "хэш", из которого формируется пароль, дописать любой набор символов.
Ага? <!--emo&:)--><!--endemo-->

PS. Не обновил тред, и вот такая лажа. <!--emo&:)--><!--endemo--> Я хоть не Брюс, но думаем в одном направлении. <!--emo&:D--><!--endemo-->

[XLSoft]

2Ergo
Паролики будут еще красивее, если не будет WW, rr и прочих 22. <!--emo&;)--><!--endemo-->
Если поменяется строка, допишется несколько симолов - надо не забыть приплюсовать к 61 (на самом деле 63 <!--emo&:)--><!--endemo--> ) их число? Может, оптимальнее написать строку вверху, а затем использовать ее length?

[XLSoft]

Вот что у меня получилось, пользуйтесь на здоровье. <!--emo&:)--><!--endemo-->

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

;XLSoft Dev

.save_clipboard
signs = 10
hash = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890"
pass = ""
for (length(pass) < signs)
 h = random(length(hash)+1)
 k = select(hash, h, h)
 if (index(pass, k) == 0)
   pass = pass ++ k
 endif
endfor
clip.set(pass)
clip paste
.restore_clipboard


На любителя, можно дописать после clip paste

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

for (i=1; i<=signs; i=i+1)
 keys +{al}
endfor


(Не знаю, как по-другому послать несколько одинаковых кистроков подряд) <!--emo&;)--><!--endemo-->

PS. Жаль, не получилось повесть на Win+R -- PP не может перекрыть виндовый алиас Run... Можно как-то это вылечить?

[Ergo]

2XLSoft<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Паролики будут еще красивее, если не будет WW, rr и прочих 22<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Я не считаю, что WW и даже WWW будут сильно менять картину, поскольку взламываемость пароля от этого не изменится, поскольку здесь идет простой перебор паролей и никакие словари не помогут.

[XLSoft]

2Ergo
Можешь проигнорить мой скрипт. <!--emo&:P--><!--endemo-->