Matrix encryption screen remake

[CodyBarrett]

lol i made a matrix look alike encryption screen... i was so bored.. and im supprized as to how well it works...60 somelines of code... tell me what you guys think

its a dead end project.. pretty much for good looks XD

MATRIX :

expandcollapse popup

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ASCII characters.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUICONSTANTS.AU3>
#include <WINDOWSCONSTANTS.AU3>
#include <STATICCONSTANTS.AU3>
#include <EDITCONSTANTS.AU3>
#include <MISC.AU3>
#Include <WinAPI.au3>
HotKeySet ('+{ESC}','_Exit')
HotKeySet ('+{TAB}','_MR')
HotKeySet ('+{UP}','_Add_Trans')
HotKeySet ('+{DOWN}','_Sub_Trans')

Opt ('GUIoneventmode', 1)
$GUIStyle = BitOR($WS_POPUP, $WS_VISIBLE)
$GUIStyleEx = BitOR ($WS_EX_TOPMOST, $WS_EX_TRANSPARENT)
$LabelStyle = $SS_CENTER
$Parent = WinGetHandle ('Program Manager','')
$GUI = GUICreate ('', @DesktopWidth, @DesktopHeight, -1, -1,$GUIStyle ,$GUIStyleEx, $Parent)
$x = 0
$Da = @DesktopWidth / 20 
$Dx = $Da - 1
$Trans = 100
WinSetTrans ($GUI, '', $Trans)
Dim $Console[$Da], $Chr[50]
For $i = 0 To $Dx
    $Console[$i] = GUICtrlCreateLabel ('',$x, 0, 20, @DesktopHeight, $LabelStyle)
    $x += 20
    GUICtrlSetBkColor (-1, 0x0)
    GUICtrlSetColor (-1, 0x4AFFA5)
Next
GUISetBkColor (0x0, $GUI)
GUISetState ()
WinMove ($GUI, '', 0, 0)
While 1
    Sleep (5)
    For $i = 0 To $Dx
        $0 = Random (0, $Da)
        $Chr[0] = ''
        For $c = 1 To 49
            $Chr[$c] = Chr (Random (0,255,1)) & @CRLF & GUICtrlRead ($Console[$0])
        Next
        GUICtrlSetData ($Console[$0],$Chr[Random (0, 49, 1)] )
        Sleep (5)
    Next
WEnd
Func _Add_Trans ()
    If $Trans >= 254 Then Return
    $Trans += 1
    WinSetTrans ($GUI,'',$Trans)
EndFunc
Func _Sub_Trans ()
    If $Trans <= 1 then Return
    $Trans -= 1
    WinSetTrans ($GUI,'',$Trans)
EndFunc
Func _MR ()
    Select
        Case WinGetState ($GUI,'') = 7 Or WinGetState ($GUI,'') = 15
            WinSetState ($GUI, '', @SW_MINIMIZE)
        Case WinGetState ($GUI, '') = 23
            WinSetState ($GUI, '', @SW_RESTORE)
    EndSelect
EndFunc
Func _Exit ()
    Exit
EndFunc

NOW THIS IS SOMETHING DIFFERENT BUT SAME IDEA... IT COVERS THE WHOLE SCREEN AND DOESNT SCROLL.. BUT DOES RANDOMLY CHANGE CHRs check this out also

FULL SCREEN :

expandcollapse popup

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ASCII characters.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUICONSTANTS.AU3>
#include <WINDOWSCONSTANTS.AU3>
#include <STATICCONSTANTS.AU3>
#include <EDITCONSTANTS.AU3>
#include <MISC.AU3>
#Include <WinAPI.au3>
HotKeySet ('+{ESC}','_Exit')
HotKeySet ('+{TAB}','_MR')
HotKeySet ('+{UP}','_Add_Trans')
HotKeySet ('+{DOWN}','_Sub_Trans')

Opt ('GUIoneventmode', 1)
$GUIStyle = BitOR($WS_POPUP, $WS_VISIBLE)
$GUIStyleEx = BitOR ($WS_EX_TOPMOST, $WS_EX_TRANSPARENT)
$LabelStyle = BitOR ($SS_CENTER, $SS_CENTERIMAGE)
$Parent = WinGetHandle ('Program Manager','')
$GUI = GUICreate ('', @DesktopWidth, @DesktopHeight, -1, -1,$GUIStyle ,$GUIStyleEx, $Parent)
$x = 0
$y = 0
$Da = @DesktopWidth / 20 
$Dx = $Da - 1
$Db = @DesktopHeight / 20 
$Dy = $Db - 1
$Trans = 200
WinSetTrans ($GUI, '', $Trans)
Dim $Console[$Da][$Db]
For $i = 0 To $Dx
    For $ii = 0 To $Dy
        $Console[$i][$ii] = GUICtrlCreateLabel ('',$x, $y, 20, 20, $LabelStyle)
        GUICtrlSetData (-1,Chr (Random (48, 49,1)))
        GUICtrlSetBkColor (-1, 0x0)
        GUICtrlSetColor (-1, 0xFF0000)
        $y += 20
    Next
    $y = 0
    $x += 20
Next
GUISetFont (10,-1,-1,'Tahoma',$GUI)
GUISetBkColor (0x0, $GUI)
GUISetState ()
WinMove ($GUI, '', 0, 0)
While 1
    GUICtrlSetData ($Console[Random (0, $Dx,1)][Random (0,$Dy,1)], Chr (Random (48, 49,1)))
WEnd
Func _Add_Trans ()
    If $Trans >= 254 Then Return
    $Trans += 1
    WinSetTrans ($GUI,'',$Trans)
EndFunc
Func _Sub_Trans ()
    If $Trans <= 1 then Return
    $Trans -= 1
    WinSetTrans ($GUI,'',$Trans)
EndFunc
Func _MR ()
    Select
        Case WinGetState ($GUI,'') = 7 Or WinGetState ($GUI,'') = 15
            WinSetState ($GUI, '', @SW_MINIMIZE)
        Case WinGetState ($GUI, '') = 23
            WinSetState ($GUI, '', @SW_RESTORE)
    EndSelect
EndFunc
Func _Exit ()
    Exit
EndFunc

you can click through it to do other stuff... and here are the hotkeys

to Exit : SHIFT + ESC

to minimize it : SHIFT + TAB

Edited August 12, 2009 by CodyBarrett

[frog78]

It was better than expected and it looks nice.

[Datenshi]

hehe cool >_< changed it a bit to use the real matrix font

expandcollapse popup

#NoTrayIcon
#include <GUICONSTANTS.AU3>
#include <WINDOWSCONSTANTS.AU3>
#include <STATICCONSTANTS.AU3>
#include <EDITCONSTANTS.AU3>
#include <MISC.AU3>
#Include <WinAPI.au3>
HotKeySet ('+{ESC}','_Exit')
FileInstall("matrix code nfi.ttf","C:\WINDOWS\Fonts\matrix code nfi.ttf")
Opt ('GUIoneventmode', 1)
$GUIStyle = BitOR($WS_POPUP, $WS_VISIBLE)
$GUIStyleEx = BitOR ($WS_EX_TOPMOST, $WS_EX_TRANSPARENT)
$LabelStyle = $SS_CENTER
$Parent = WinGetHandle ('Program Manager','')
$GUI = GUICreate ('', @DesktopWidth, @DesktopHeight, -1, -1,$GUIStyle ,$GUIStyleEx, $Parent)
GUISetFont(10,"","","Matrix Code NFI")
$Letters = Stringsplit("QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890","")
$x = 0
$Da = @DesktopWidth / 20
$Dx = $Da - 1
WinSetTrans ($GUI, '', 100)
Dim $Console[$Da], $Chr[50]
For $i = 0 To $Dx
    $Console[$i] = GUICtrlCreateLabel ('',$x, 0, 20, @DesktopHeight, $LabelStyle)
    $x += 20
    GUICtrlSetBkColor (-1, 0x0)
    GUICtrlSetColor (-1, 0x00f400)
Next
GUISetBkColor (0x0, $GUI)
GUISetState ()
WinMove ($GUI, '', 0, 0)
While 1
    Sleep (5)
    For $i = 0 To $Dx
        $0 = Random (0, $Da)
        $Chr[0] = ''
        For $c = 1 To 49
            $Chr[$c] = $Letters[Random(1,$Letters[0])] & @CRLF & GUICtrlRead ($Console[$0])
        Next
        GUICtrlSetData ($Console[$0],$Chr[Random (0, 49, 1)] )
        Sleep (5)
    Next
WEnd

Func _Exit ()
    Exit
EndFunc

Matrix Font NFI

Edited August 11, 2009 by Datenshi

[Authenticity]

$0 = Random (0, $Da)

perhaps should be:

$0 = Random (0, $Dx)

Looks good, you can change the random char to begin with 32, I think it's the first printable character.

[CodyBarrett]

alright i didn't use the Font.. BEACUSE everytime i try fileinstall with a .ttf it NEVER works i believe either write up 50+ lines for a font installer OR manually install it.. either way im not trying to win the look alike contest... if there even IS one XD but no... and authenticity your right... though it really hasn't givin me an error with Dx and Da... but i added some things...

Transparency control

*SHIFT + UP = +1 trans

*SHIFT + DOWN = - 1 trans

i also added a bluer green color that i think (after watching the matrix lastnight) looks closer to the color on there than the lime green i had before.. check the top

I DID add the 32 chr thing >_< kinda stupid of me to misread the helpfile.... now it only has the printable chrs including 32

[Suirad]

wow this is very nice. one other thing thats good to add is:

WinSetOnTop($gui,"",1)

then u will be able to see it all the time, yet be able to interact with all your other programs

edit: for fullscreen one, couldnt get other to run. >_<

Edited August 12, 2009 by Suirad

[CodyBarrett]

thank you but its already ontop of everything...WS_EX_TOPMOST and i changed the second code so its kinda different XD