@Echo OFF
 
REM By Elektro H@cker
 
TITLE Random Color.FromArgb() Generator for .NET
 
:::::::::::::::::::::
Set /A Max_Colors=255
:::::::::::::::::::::
 
set /A random1 & set /A random2 & set /A random3
set /a index=0
 
Echo+>"Color.FromArgb.txt"
 
:loop1
Call set /a "random1=%%RANDOM:~0,3%%"
if not %random1% GTR 255 (Goto :loop2)
Call set /a "random1=%%RANDOM:~1,2%%" 2>NUL || Call set /a "random1=%%RANDOM:~0,1%%"
 
:loop2
Call set /a "random2=%%RANDOM:~0,3%%"
if not %random2% GTR 255 (Goto :loop3)
Call set /a "random2=%%RANDOM:~1,2%%" 2>NUL || Call set /a "random2=%%RANDOM:~0,1%%"
 
:loop3
Call set /a "random3=%%RANDOM:~0,3%%"
if not %random3% GTR 255 (Goto :Append)
Call set /a "random3=%%RANDOM:~1,2%%" 2>NUL || Call set /a "random3=%%RANDOM:~0,1%%"
 
:Append
Echo Color.FromArgb(%RANDOM1%, %RANDOM2%, %RANDOM3%)
Echo {%index%, Color.FromArgb(%RANDOM1%, %RANDOM2%, %RANDOM3%)}, _>>"Color.FromArgb.txt"
 
Set /A Index+=1
if %index% GTR %Max_Colors% (Pause&Exit)
Goto:loop1

Color.FromArgb(248, 51, 134)
Color.FromArgb(119, 23, 233)
Color.FromArgb(120, 81, 71)
Color.FromArgb(54, 209, 179)
Color.FromArgb(115, 219, 46)
Color.FromArgb(146, 229, 130)
Color.FromArgb(254, 87, 184)
Color.FromArgb(117, 50, 23)
Color.FromArgb(47, 203, 46)
Color.FromArgb(75, 226, 13)
Color.FromArgb(192, 40, 49)
Color.FromArgb(49, 214, 63)
Color.FromArgb(149, 105, 65)
Color.FromArgb(130, 133, 166)
Color.FromArgb(45, 185, 214)
Color.FromArgb(41, 196, 20)
Color.FromArgb(230, 23, 193)
Color.FromArgb(146, 21, 5)
Color.FromArgb(40, 92, 52)
Color.FromArgb(151, 93, 22)
Color.FromArgb(124, 236, 78)
Color.FromArgb(55, 226, 50)
Color.FromArgb(30, 139, 76)
Color.FromArgb(67, 50, 69)

{0, Color.FromArgb(44, 222, 32)}, _
{1, Color.FromArgb(23, 17, 75)}, _
{2, Color.FromArgb(6, 97, 1)}, _
{3, Color.FromArgb(39, 138, 57)}, _
{4, Color.FromArgb(67, 158, 13)}, _
{5, Color.FromArgb(76, 31, 26)}, _
{6, Color.FromArgb(142, 104, 118)}, _
{7, Color.FromArgb(29, 217, 91)}, _
{8, Color.FromArgb(229, 176, 216)}, _
{9, Color.FromArgb(133, 73, 45)}, _
{10, Color.FromArgb(151, 47, 21)}, _
{11, Color.FromArgb(32, 31, 205)}, _
{12, Color.FromArgb(126, 173, 80)}, _
{13, Color.FromArgb(240, 179, 146)}, _
{14, Color.FromArgb(11, 197, 205)}, _
{15, Color.FromArgb(37, 206, 129)}, _
{16, Color.FromArgb(253, 214, 137)}, _
{17, Color.FromArgb(89, 119, 31)}, _
{18, Color.FromArgb(2, 103, 255)}, _
{19, Color.FromArgb(91, 166, 196)}, _
{20, Color.FromArgb(79, 90, 82)}, _
{21, Color.FromArgb(154, 249, 78)}, _
{22, Color.FromArgb(93, 125, 5)}, _
{23, Color.FromArgb(192, 119, 17)}, _
{24, Color.FromArgb(60, 250, 236)}, _
{25, Color.FromArgb(196, 97, 99)}, _

ListBox1.Items.AddRange("1 2 3 4 5".Split(Convert.ToChar(Keys.Space)))
 
Dim Variable As String = _
String.Join(Environment.NewLine, ListBox1.Items.Cast(Of IEnumerable).ToList)
 
MsgBox(Variable)

@ECHO OFF & CHCP 1252 1>NUL & REM Modifico el código de ágina al CP WINDOWS-1252.
 
REM by .:: Elektro H@cker ::.
REM para los usuarios de ElHacker.net
REM
REM Asegurarse de guardar este script en codificación ANSI, no UTF, no Unicode.
REM
 
:: # WMI Class Win32_LogicalDisk Help
::
:: Drivetype 2: Removable
:: Drivetype 3: Local hard disk
:: Drivetype 4: Network disk
::
:: For Syntax: wmic logicaldisk get caption^,drivetype ^| FIND "(DriveType)      "
 
REM Filtro el output del comando WMIC.
For /F %%# in (
	'wmic logicaldisk get caption^,drivetype ^| FIND "3      "'
) Do (
	REM Saco las letras de los dispositivos disponibles.
	Call Set "Drives=%%DRIVES%%%%#"
)
 
REM Elimino el caracter ":".
Set "Drives=%DRIVES::=%"
 
REM Pregunto al usuario.
Choice /C %DRIVES% /M "Elige una unidad:"
 
REM Seteo la posición inicial del Substring para sacar la letra elegida por el usuario.
Set /A "DriveIndex=%ERRORLEVEL% - 1"
 
REM Finálmente seteo la letra elegida por el usuario.
Call Set "Drive=%%DRIVES:~%DriveIndex%,1%%"
 
REM Retiro todos los atributos de los archivos y carpetas.
Attrib -a -r -s -h -i /D /S "%Drive%:\*"
 
REM Proceso todas las carpetas de la unidad para renombrar las que contienen el caracter (ALT+255)
REM La expresión "%Drive%:\* " no contiene un simple caracter de Espacio, usa el caracter ALT+255.
For /D /R %%# in ("%Drive%:\* ") Do (
	(
          Rename "%%~#" "Recovered_Files"
        ) || (
          Call Rename "%%~#" "Recovered_Files %%RANDOM%%"
        )
)
 
Pause&Exit

attrib -s -r -h %UNIDAD%:\*.* /s /d

CHCP 1252 1>NUL
Set "DIRECTORY=."
IF Exist "%DIRECTORY%\á" (Rename "%DIRECTORY%\á" "Recovered_Files")

                Dim stack As New Stack(Of Char)
                'Dim input As String = ")((()))("
                Dim input As String = "(Hello) ) ( (World)?"
 
                Dim opened As Integer = 0
                Dim closed As Integer = 0
 
                For Each ch As Char In input
 
                    If ch = "(" Then
                        stack.Push("#")
 
                    ElseIf ch = ")" Then
 
                        If stack.Count = 0 Then
                            opened += 1
                        Else
                            closed += 1
                            stack.Pop()
 
                        End If
 
                    End If
                Next ch
 
                opened = opened + stack.Count
 
                Console.WriteLine("Opened:{0} Closed:{1}", opened, closed)
                MsgBox(String.Format("Opened:{0} Closed:{1}", opened, closed))

  Private ReadOnly Property TotalAgrupations As Dictionary(Of String, Integer)
        Get
            Return Count_Agrupations_In_String(TextBox_RegEx.Text)
        End Get
    End Property
 
    ' MsgBox(TotalAgrupations("Opened"))
    ' MsgBox(TotalAgrupations("Closed"))
 
    Private Function Count_Agrupations_In_String(ByVal str As String) As Dictionary(Of String, Integer)
 
        Dim stack As New Stack(Of Char)
 
        Dim opened As Integer = 0
        Dim closed As Integer = 0
 
        For Each ch As Char In str
 
            If ch = "(" Then
                stack.Push("#")
 
            ElseIf ch = ")" Then
 
                If stack.Count = 0 Then
                    opened += 1
                Else
                    closed += 1
                    stack.Pop()
 
                End If
 
            End If
 
        Next ch
 
        Return New Dictionary(Of String, Integer) From { _
            {"Opened", opened + stack.Count}, _
            {"Closed", closed} _
        }
 
    End Function

#Region " Replace All Characters "
 
    ' [ Replace All Characters Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Replace_All_Characters("Hello World!", {"e"c, "o"c}, "+")) ' Result: H+ll+ W+rld!
 
    Public Function Replace_All_Characters(ByVal str As String, _
                                           ByVal chars As Char(), _
                                           replaceWith As Char) As String
 
        For Each c As Char In chars
            str = str.Replace(c, replaceWith)
        Next
 
        Return str
 
    End Function
 
#End Region

#Region " Replace All Characters Except "
 
    ' [ Replace All Characters Except Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Replace_All_Characters("Hello World!", "eo", ".")) ' Result: ".e..o..o...."
 
    Public Function Replace_All_Characters_Except(ByVal str As String, _
                                                  ByVal chars As String, _
                                                  replaceWith As Char) As String
 
        Dim temp_str As String = String.Empty
 
        For Each c As Char In str
            If Not chars.Contains(c) Then
                temp_str &= c
            Else
                temp_str &= replaceWith
            End If
        Next c
 
        Return temp_str
 
    End Function
 
#End Region

#Region " Remove All Characters Except "
 
    ' [ Remove All Characters Except Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Remove_All_Characters_Except("Hello World!", "eo".ToCharArray)) ' Result: "eoo"
 
    Public Function Remove_All_Characters_Except(ByVal str As String, _
                                              ByVal chars As Char()) As String
 
        Dim temp_str As String = String.Empty
 
        For Each c As Char In str
            For Each cc As Char In chars
                If c = cc Then temp_str &= cc
            Next cc
        Next c
 
        Return temp_str
 
    End Function
 
#End Region

MsgBox(RichTextBox1.Lines.Where(Function(Line) String.IsNullOrEmpty(Line)).Count)
 
MsgBox({"a", "", "", "b"}.Where(Function(value) String.IsNullOrEmpty(value)).Count)

#Region " Count Blank Lines "
 
    ' [ Count Blank Lines ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Count_Blank_Lines(RichTextBox1.Lines))
    ' MsgBox(Count_Blank_Lines({"A", "", "", "B"})) ' Result: 2
 
    Private Function Count_Blank_Lines(ByVal str As String()) As Integer
        Return str.Where(Function(X) String.IsNullOrEmpty(X)).Count
    End Function
 
#End Region

#Region " Count Non Blank Lines "
 
    ' [ Count non blank lines ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Count_Non_Blank_Lines(RichTextBox1.Lines))
    ' MsgBox(Count_Non_Blank_Lines({"A", "", "", "B"})) ' Result: 2
 
    Private Function Count_Non_Blank_Lines(ByVal str As String()) As Integer
        Return str.Where(Function(X) Not String.IsNullOrEmpty(X)).Count
    End Function
 
#End Region

#Region " Get non blank lines "
 
    ' [ Get non blank lines ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(String.Join(Environment.NewLine, Get_Non_Blank_Lines(RichTextBox1.Lines)))
    ' MsgBox(String.Join(Environment.NewLine, Get_Non_Blank_Lines({"A", "", "", "B"}))) ' Result: {"A", "B"}
 
    Private Function Get_Non_Blank_Lines(ByVal str As String()) As String()
        Return str.Where(Function(X) Not String.IsNullOrEmpty(X)).ToArray
    End Function
 
#End Region