HackIt / Level 1 / backwards.vbs

backwards.vbs

REM  *****  BASIC  *****

Sub Main

  Dim a
         Dim t
         Dim tmp
         
         a = Array(0, 101, 107, 164, 102, 76, 232, 0, 57, 122, 139, 112, 36, 17, 205)
         
         For j = 42 To 1 Step -1

            tmp = a(14)
            For i = 14 To 2 Step -1
               a(i) = a(i - 1)
            Next
            a(1) = tmp
            a(6) = 255 - a(6)
            For x = 1 To 256
                If (x * ((j * 2) + 1)) Mod 256 = a(5) Then
                    a(5) = x 
                    Exit For
                End If
            Next
            For x = 1 To 256
                If (x * 49) Mod 256 = a(4) Then
                    a(4) = x
                    Exit For
                End If
            Next
            tmp = a(3)
            a(3) = a(2)
            a(2) = tmp
            
            For i = 14 To 1 Step -1
                For x = 1 To 256
                    If (x + (j * a((i Mod 14) + 1))) Mod 256 = a(i) Then
                        a(i) = x Mod 256
                        Exit For
                    End If
                Next
            Next
            
        Dim s
        s = CStr(j) + ": "
        For n = 1 To 14
        s = s + Chr(a(n))
        Next

         Next
         
         MsgBox s

End Sub