User:Tatatat123321/sandbox

PASSWORD GENERATOR Password Generator  TABLE { font-family:Arial, Helvetica, sans-serif; font-size:14px}      MATRIX THING  body{background-color:black; color:DarkSlateGray; font-size:20px;} div{width:20px; float:left;} WINDOWSTATE="maximize" Public n, iTimerID, MyTitle, colnum, carset ReDim M(1,1) ReDim SpecCar(64) SpecCar(0)="1" SpecCar(1)="2"  : SpecCar(11)="8"   : SpecCar(21)="3" : SpecCar(31)="8" SpecCar(2)="3" : SpecCar(12)="9"   : SpecCar(22)="4"     : SpecCar(32)="9" SpecCar(3)="4" : SpecCar(13)="0"    : SpecCar(23)="5"     : SpecCar(33)="0" SpecCar(4)="5" : SpecCar(14)="1"   : SpecCar(24)="6"     : SpecCar(34)="1" SpecCar(5)="7" : SpecCar(15)="2" : SpecCar(25)="7"    : SpecCar(35)="2" SpecCar(6)="8"    : SpecCar(16)="3"    : SpecCar(26)="8"    : SpecCar(36)="3" SpecCar(7)="9"    : SpecCar(17)="4"     : SpecCar(27)="9" : SpecCar(37)="4" SpecCar(8)="0" : SpecCar(19)="5"    : SpecCar(29)="0"    : SpecCar(39)="5" SpecCar(10)="1"  : SpecCar(20)="6"   : SpecCar(30)="1": SpecCar(40)="6" SpecCar(41)="2" : SpecCar(46)="7" : SpecCar(51)="2"     : SpecCar(56)="7" SpecCar(42)="3"  : SpecCar(47)="8"   : SpecCar(52)="3"  : SpecCar(57)="8" SpecCar(43)="4"  : SpecCar(48)="9"      : SpecCar(53)="4"   : SpecCar(58)="9" SpecCar(44)="5"  : SpecCar(49)="0"   : SpecCar(54)="5"    : SpecCar(59)="0" SpecCar(45)="6"  : SpecCar(50)="1"      : SpecCar(55)="6" : SpecCar(60)="1" SpecCar(61)="7": SpecCar(62)="2"   : SpecCar(63)="7"  : SpecCar(64)="2"

Sub window_onLoad n=32 colnum=48 carset=1 ReDim M(colnum,1) For i=1 To colnum Randomize  '---This formula doesn't accept variables M(i,0) = Int(31*Rnd) t="" '--- Fill the collumn with white space --- For j=1 To n	 t = t & " " Next M(i,1) = t   Next iTimerID = window.setInterval("Progress", 500) End Sub

Sub Progress For i=1 To colnum l = Split(M(i,1), " ") cpos = M(i,0) '--- position of the character to be written on the screen at this time Randomize If Int(carset)=1 Then l(cpos) = " " & Chr( 32 + Int(223*Rnd) ) & " " carset = carset +0.25 ElseIf Int(carset)=2 Then l(cpos) = " " & SpecCar( Int(64*Rnd) ) & " " carset = 1 End If   y=-1 For j = cpos-1 To cpos-11 Step -1 tempj = j		If j < 0 Then j = UBound(l) +j +1 End If	 y=y+1 Select Case y		   Case 0 color="LawnGreen" Case 1 color="LawnGreen" Case 2 color="LimeGreen" Case 3 color="LimeGreen" Case 4 color="ForestGreen" Case 5 color="ForestGreen" Case 6 color="Green" Case 7 color="Green" Case 8 color="DarkGreen" Case 9 color="DarkGreen" Case 10 color="" End Select clj = l(j) If InStr(1, clj, "0 Then clj = Left(clj, InStrRev(clj, "<") -1) clj = Mid(clj, InStr(clj, ">") +1) End If		If color <> "" Then '--- set a span with a color style only if necessary l(j) = "" & clj & " " Else l(j) = clj End If	 j = tempj Next t = Join(l, " ") M(i,1) = t '--- M(i,1) contains the html of the column cpos = cpos +1 If cpos > UBound(l) Then cpos = 0 End If   M(i,0) = cpos   '--- M(i,0) contains the number of the character to be written id("col" & i).innerHTML = t   Next End Sub

Sub checkKey Select Case window.event.keycode Case 27 Call ExitMatrix End Select End Sub

Sub ExitMatrix window.clearInterval(iTimerID) window.close End Sub

Function id(o) Set id = document.getElementById(o) End Function

 