Script ktory nam vygeneruje nahodny 8miestny Passphrase, nastavi ho do Security profilu a posle nam ho na mail, celkom uzitocne pre Wifi Kaviarne a pod... :)
#
# Generovanie nahodnych hesiel + zasielanie na mail
# Script by Tokk
#
# pozn. nazov tohto skriptu musi byt "generate-wpa2"
#email na ktory ma zaslat heslo
:local em "tokk@sihot.net"
#predmet emailovej spravy
:local subj ([/system identity get name] . " - New HotSpot Wireless Password")
#nazov security profilu vo Wireless kde ma zmenit WPA2
:local secprof "wpa-generate"
#Pouzite Znaky (pocet musi byt minimalne 101 pretoze 101 ich prave pouziva)
:local characters A,b,C,a,B,c,D,d,f,e,F,E,G,g,H,h,J,i,I,j,K,k,L,l,N,m,M,n,o,O,P,p,R,s,Q,r,S,q,T,W,U,u,V,X,t,w,Y,x,v,y,1,z,Z,0,6,3,5,5,4,a,5,v,4,d,2,g,8,y,1,D,5,X,2,D,F,4,G,1,2,D,S,F,d,s,2,1,s,a,8,4,2,a,s,d,2,4,5,d,2,v,k,T,P,5,4,Q,3,Z,F,5,8,C,x,K
#
#Lokalne Premenne
#
:local character "0"
:local index 0
:local string ""
:local bool false
:local time 0
:local myint 0
:local int
:local int2 0
:local int3 0
:local intX 0
:local index2 0
:local bod ""
#
# SAMOTNE GENEROVANIE
#
# to=8 pocet cisel
:for i from=1 to=8 do={
:set time [/system clock get time]
:set int ($time * 20)
/system script
:set int2 ([get [find name="generate-wpa2"] run-count] * $i)
:set int3 ($int2 * $int)
:set int ($int3 - [:totime $int2])
:set int2 ($int3 - [:totime $int])
:set intX ([:totime $int] + [:totime $int2] + [:totime $int3])
:set int 600
:set index 25
:while ($intX>[:totime $int]) do={
:set int2 $intX
:set intX ($int2 / 100)
}
:set int 60
:set index 25
:while ($intX>[:totime $int]) do={
:set int2 [:totime $intX]
:set intX ($int2 - [:totime 100])
}
:set int 1
:set index 1
:set int 1
:set int3 1
:while ($intX>[:totime $int]) do={
:set myint $index
:set index ($myint + 1)
:set int2 [:totime $intX]
:set intX ([:totime $int2] - [:totime $int3])
}
:set index ($index * [/system script get [/system script find name="generate-wpa2"] run-count])
:local timeX [/system clock get time]
:while ($timeX>[:totime $time]) do={
:set time ($time + [:totime 15])
:set index ($index+1)
}
:set index2 ($index/100)
:set index2 ($index2 * 100)
:set index2 ($index - $index2)
:set index2 ($index2 - $i)
:if ($index2<0) do={
:set index2 ($index2 + 99)
}
:set character [:pick $characters ($index2)]
:set string ("" . $string . "" . $character)
}
#
# KONIEC GENEROVANIA
#
#
# Zaslanie E-Mailu
#
#telo emailovej spravy
:set bod ("Wifi Heslo :: " . $string)
/tool e-mail send to=$em body=$bod subject=$subj
#
# Zmena Wifi Hesla
#
/interface wireless security-profiles
set [find name=$secprof] wpa2-pre-shared-key=$string
