Jump to content
Sign in to follow this  
CodyBarrett

Matrix encryption screen remake

Recommended Posts

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 :

#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 :

#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 by CodyBarrett

Share this post


Link to post
Share on other sites
Datenshi

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

#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 by Datenshi

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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 by Suirad

Share this post


Link to post
Share on other sites
CodyBarrett

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.