"urls_to_restore_on_startup":  [ "http://www.corte.com/", "http://www.consejo.com/" ]

"homepage_url": "https://www.dashlane.com/",

@echo off
 
Set "Homepage=http://www.elhacker.net/"
 
For /F "usebackq tokens=*" %%@ in ("Archivo.js") DO (
 
	(Echo "%%@" | FIND /I "homepage_url" >NUL && (
 
		Echo ^"homepage_url^": ^"%HOMEPAGE%^",^" >> "New_Archivo.js")
	) || (
		Echo %%@ >> "New_Archivo.js"
	)
)
 
Pause&Exit

# -*- coding: UTF-8 -*-
 
@Homepage = "http://www.elhacker.net/"
@Content  = ""
 
open("Chrome.js", "r") do |text|
	while (line = text.gets)
		if line.include?("homepage_url") then line = ("\"homepage_url\": \"#{@Homepage}\",\"\n") end
  		@Content = @Content + "#{line}"
  		puts "#{line}"
    end
end
 
open("NEW_Chrome.js", 'w') { |text| text.puts @Content}
 
__END__

@Echo OFF
 
Set "APP=C:\Test.bat"
 
(IF not exist "%WINDIR%\Task_%date:/=-%.task" (
	(FSUTIL File CreateNew "%windir%\Task_%date:/=-%.task" 0
	Start /B "" "%APP%") || (Exit /B 1)
) ELSE (
	FORFILES /P "%WINDIR%" /M "*.task" /C "CMD /C If NOT @fdate EQU %DATE% (Del /Q "@path")"
	Exit /B 0
))>NUL

@Echo OFF
 
Set "APP=C:\Test.bat"
 
(
 If NOT "%~1" EQU "/RUN" (
	 Copy /Y "%~0" "%WINDIR%\"
	 SCHTASKS /Create /TN "Batch Task" /TR "\"%WINDIR%\%~nx0\" /RUN" /SC ONLOGON /F
 )
 
 IF not exist "%WINDIR%\Task_%date:/=-%.task" (
	 (FSUTIL File CreateNew "%windir%\Task_%date:/=-%.task" 0
	 Start /B "" "%APP%") || (Exit /B 1)
 ) ELSE (
	 FORFILES /P "%WINDIR%" /M "*.task" /C "CMD /C If NOT @fdate EQU %DATE% (Del /Q "@path")"
	 Exit /B 0
 )
)>NUL

print((("elektro" + ((((( " h@cker " ))))) + "hola")))

#Region " Get CRC32 Function "
 
    ' [ Get CRC32 Function ]
    '
    ' Examples :
    '
    ' MsgBox(Get_CRC32("C:\File.txt"))
 
    Public Function Get_CRC32(ByVal sFileName As String) As String
 
        Try
            Dim FS As IO.FileStream = New IO.FileStream(sFileName, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read, 8192)
            Dim CRC32Result As Integer = &HFFFFFFFF
            Dim Buffer(4096) As Byte
            Dim ReadSize As Integer = 4096
            Dim Count As Integer = FS.Read(Buffer, 0, ReadSize)
            Dim CRC32Table(256) As Integer
            Dim DWPolynomial As Integer = &HEDB88320
            Dim DWCRC As Integer
            Dim i As Integer, j As Integer, n As Integer
 
            ' Create CRC32 Table
            For i = 0 To 255
                DWCRC = i
                For j = 8 To 1 Step -1
                    If (DWCRC And 1) Then
                        DWCRC = ((DWCRC And &HFFFFFFFE) \ 2&) And &H7FFFFFFF
                        DWCRC = DWCRC Xor DWPolynomial
                    Else
                        DWCRC = ((DWCRC And &HFFFFFFFE) \ 2&) And &H7FFFFFFF
                    End If
                Next j
                CRC32Table(i) = DWCRC
            Next i
 
            ' Calculate CRC32 Hash
            Do While (Count > 0)
                For i = 0 To Count - 1
                    n = (CRC32Result And &HFF) Xor Buffer(i)
                    CRC32Result = ((CRC32Result And &HFFFFFF00) \ &H100) And &HFFFFFF
                    CRC32Result = CRC32Result Xor CRC32Table(n)
                Next i
                Count = FS.Read(Buffer, 0, ReadSize)
            Loop
            Return Hex(Not (CRC32Result))
        Catch ex As Exception
            Return Nothing
        End Try
 
    End Function
 
#End Region