Hola.

He detectado un hilo que en mi opinión es muy peligroso y podría estar elaborado con fines maliciosos cuestionables. En mi opinión debería ser eliminado cuanto antes. No puedo reportarlo directamente usando el botón de reportar, por motivos que me reservo publicamente.

¿Con quien puedo hablar esto?. Tendría que ser con alguien que pueda eliminar temas del foro, y por mensaje privado, por que el hilo implica a un usuario con rango así que no quiero hablarlo aquí publicamente por respeto (para evitar hacer un señalamiento público).

¿Alguien que cumpla estas características (un moderador global o con rango superior) podría ponerse en contacto conmigo, por favor?.

¿O decirme con quien debo ponerme yo en contacto?.

Esto no lo hago por mi, sino por el foro y sus usuarios.

No pretendo perjudicar a nadie, solo que escuchen mis argumentos por los cuales considero que ese hilo debería ser eliminado cuanto antes por el bien estar de los usuarios. Solo eso, que se elimine ese tema y ya, sería el fin del asunto por mi parte.

Creo que si me escuchasen podrían comprender mis argumentos e incluso darme la razón total o parcialmente.

No seré pesado ni escribiré una biblia para explayarme, lo prometo.

Gracias.

El siguiente script, desarrollado de manera híbrida en PowerShell y VisualBasic.NET, permite crear de manera interactiva un archivo dummy (vacío o con contenido aleatorio) con un tamaño determinado.

La creación de un archivo dummy resulta útil para realizar pruebas de escritura en discos, o para sobrescribir el espacio en blanco del disco dificultando o imposibilitando la recuperación de datos, por ejemplo, generando un archivo dummy (con datos aleatorios) que ocupe todo el espacio disponible en el disco.

Al ejecutar este script, aparecerá el siguiente formulario que permitirá seleccionar la ubicación del archivo a crear y configurar las opciones disponibles:



Este es el procedimiento completo:



La interfaz gráfica y el resto del procedimiento está contenido en un script de PowerShell de 31 kilobytes, ideal para incluirlo como herramienta adicional en entornos de pruebas y recuperación, sin dependencias adicionales ...más allá de PowerShell y .NET Framework.

---

Así se verá un archivo dummy en un editor hexadecimal:



Y así se verá el archivo dummy rellenado con datos aleatorios:

---

CreateDummyFile.ps1

<#PSScriptInfo
.VERSION 1.0
.GUID 26C67DF9-0F1E-4806-9D23-586DFBDECF88
.AUTHOR ElektroStudios
.COMPANYNAME ElektroStudios
.COPYRIGHT ElektroStudios © 2025
#>
 
$vbCode = @'
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports Microsoft.VisualBasic
 
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Diagnostics.CodeAnalysis
Imports System.Drawing
Imports System.Drawing.Design
Imports System.Globalization
Imports System.IO
Imports System.Linq
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.Text
Imports System.Windows.Forms
Imports System.Xml
Imports System.Xml.Serialization
 
Imports DevCase.Core.IO.DigitalInformation
Imports DevCase.Core.IO.FileSystem
Imports DevCase.Runtime.TypeConverters
Imports DevCase.Win32
Imports DevCase.Win32.Enums
 
#End Region
 
#Region " CreateDummyFileOptionsForm "
 
Public NotInheritable Class CreateDummyFileOptionsForm : Inherits System.Windows.Forms.Form
 
    Public Sub New()
        Me.InitializeComponent()
    End Sub
 
    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Friend WithEvents PropertyGrid1 As New PropertyGrid
    Friend WithEvents ButtonCancel As Button
    Friend WithEvents ButtonOk As Button
    Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
    Friend WithEvents Panel1 As Panel
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid()
        Me.ButtonCancel = New System.Windows.Forms.Button()
        Me.ButtonOk = New System.Windows.Forms.Button()
        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.TableLayoutPanel1.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'PropertyGrid1
        '
        Me.PropertyGrid1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.PropertyGrid1.Location = New System.Drawing.Point(3, 4)
        Me.PropertyGrid1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
        Me.PropertyGrid1.Name = "PropertyGrid1"
        Me.PropertyGrid1.PropertySort = System.Windows.Forms.PropertySort.NoSort
        Me.PropertyGrid1.Size = New System.Drawing.Size(733, 157)
        Me.PropertyGrid1.TabIndex = 0
        Me.PropertyGrid1.ToolbarVisible = False
        '
        'ButtonCancel
        '
        Me.ButtonCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ButtonCancel.Location = New System.Drawing.Point(624, 6)
        Me.ButtonCancel.Name = "ButtonCancel"
        Me.ButtonCancel.Size = New System.Drawing.Size(100, 40)
        Me.ButtonCancel.TabIndex = 1
        Me.ButtonCancel.Text = "Cancel"
        Me.ButtonCancel.UseVisualStyleBackColor = True
        '
        'ButtonOk
        '
        Me.ButtonOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ButtonOk.Location = New System.Drawing.Point(518, 6)
        Me.ButtonOk.Name = "ButtonOk"
        Me.ButtonOk.Size = New System.Drawing.Size(100, 40)
        Me.ButtonOk.TabIndex = 2
        Me.ButtonOk.Text = "Ok"
        Me.ButtonOk.UseVisualStyleBackColor = True
        '
        'TableLayoutPanel1
        '
        Me.TableLayoutPanel1.ColumnCount = 1
        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
        Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 1)
        Me.TableLayoutPanel1.Controls.Add(Me.PropertyGrid1, 0, 0)
        Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
        Me.TableLayoutPanel1.RowCount = 2
        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 73.17073!))
        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 26.82927!))
        Me.TableLayoutPanel1.Size = New System.Drawing.Size(739, 226)
        Me.TableLayoutPanel1.TabIndex = 3
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.ButtonOk)
        Me.Panel1.Controls.Add(Me.ButtonCancel)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(3, 168)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(733, 55)
        Me.Panel1.TabIndex = 4
        '
        'CreateDummyFileOptionsForm
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(739, 226)
        Me.Controls.Add(Me.TableLayoutPanel1)
        Me.Font = New System.Drawing.Font("Segoe UI", 10.0!)
        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
        Me.MaximizeBox = False
        Me.Name = "CreateDummyFileOptionsForm"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Create Dummy File Options"
        Me.TableLayoutPanel1.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)
 
    End Sub
 
    Public Property DummyFileOptions As New DummyFileOptions
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Me.PropertyGrid1.SelectedObject = Me.DummyFileOptions
        DevCase.Extensions.PropertyGridExtensions.SetSplitterPosition(Me.PropertyGrid1, 145)
        Me.MinimumSize = Me.Size
        Me.MaximumSize = New Size(3840, Me.Height)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ButtonCancel.Click
        Me.DialogResult = DialogResult.Cancel
        Me.Close()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ButtonOk.Click
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub
 
End Class
 
#End Region
 
#Region " DummyFileOptions "
 
Public NotInheritable Class DummyFileOptions
 
    <Browsable(True)>
    <Editor(GetType(SaveFileNameEditor), GetType(UITypeEditor))>
    <DisplayName("File Path")>
    <Description("File path where to create the dummy file.")>
    Public Property FilePath As String = Path.Combine(System.IO.Directory.GetCurrentDirectory(), "File.dummy")
 
    <TypeConverter(GetType(FileSizeConverter))>
    <DisplayName("File Size")>
    <Description("Size of the dummy file.")>
    Public Property FileSize As New FileSize(1, DigitalStorageUnits.Megabyte)
 
    <Browsable(False)>
    Public ReadOnly Property FileSizeBytes As ULong
        Get
            Return CULng(Me.FileSize.Size(DigitalStorageUnits.Byte))
        End Get
    End Property
 
    <TypeConverter(GetType(FileSizeConverter))>
    <DisplayName("Buffer Size")>
    <Description("Size of the buffer used to write the dummy file.")>
    Public Property BufferSize As New FileSize(4, DigitalStorageUnits.Megabyte)
 
    <Browsable(False)>
    Public ReadOnly Property BufferSizeBytes As Integer
        Get
            Return CInt(Me.BufferSize.Size(DigitalStorageUnits.Byte))
        End Get
    End Property
 
    <DisplayName("Use Random Data")>
    <Description("If True, uses random bytes to fill the dummy file content; othewise, fills the dummy file with zero bytes.")>
    Public Property UseRandomData As Boolean = False
 
End Class
 
#End Region
 
#Region " SaveFileNameEditor "
 
Public NotInheritable Class SaveFileNameEditor : Inherits UITypeEditor
 
    Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle
        Return UITypeEditorEditStyle.Modal
    End Function
 
    Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
        If context Is Nothing OrElse context.Instance Is Nothing OrElse provider Is Nothing Then
            Return MyBase.EditValue(context, provider, value)
        End If
 
        Using saveFileDialog As New SaveFileDialog()
            If value IsNot Nothing Then
                saveFileDialog.FileName = value.ToString()
            End If
 
            saveFileDialog.Title = "Select a location to save the dummy file"
            saveFileDialog.Filter = "All files (*.*)|*.*"
            saveFileDialog.FileName = "File.dummy"
            If saveFileDialog.ShowDialog() = DialogResult.OK Then
                value = saveFileDialog.FileName
            End If
        End Using
 
        Return value
    End Function
End Class
 
#End Region
 
#Region " NativeMethods "
 
Namespace DevCase.Win32.NativeMethods
 
    <HideModuleName>
    <SuppressUnmanagedCodeSecurity>
    <SuppressMessage("CodeQuality", "IDE0079:Remove unnecessary suppression", Justification:="Required to migrate this code to .NET Core")>
    <SuppressMessage("Interoperability", "CA1401:P/Invokes should not be visible", Justification:="")>
    Public Module ShlwApi
 
#Region " ShlwApi.dll "
 
        <DllImport("ShlwApi.dll", SetLastError:=True, ExactSpelling:=True, CharSet:=CharSet.Ansi, BestFitMapping:=False, ThrowOnUnmappableChar:=True)>
        Public Function StrFormatByteSize64A(number As ULong,
                                            buffer As StringBuilder,
                                            bufferSize As UInteger
        ) As IntPtr
        End Function
 
        <DllImport("ShlwApi.dll", SetLastError:=False, ExactSpelling:=True, CharSet:=CharSet.Unicode)>
        Public Function StrFormatByteSizeEx(number As ULong,
                                            flags As StrFormatByteSizeFlags,
                                            buffer As StringBuilder,
                                            bufferSize As UInteger
        ) As Integer ' HResult
        End Function
 
#End Region
 
    End Module
 
End Namespace
 
#End Region
 
#Region " StrFormatByteSizeFlags "
 
Namespace DevCase.Win32.Enums
 
    Public Enum StrFormatByteSizeFlags
        RoundToNearest = 1
        Truncate = 2
    End Enum
 
End Namespace
 
#End Region
 
#Region " Size Units "
 
Namespace DevCase.Core.IO.DigitalInformation
 
    Public Enum DigitalStorageUnits As Long
        [Byte] = CLng(2 ^ 0)
        Kilobyte = CLng(2 ^ 10)
        Megabyte = CLng(2 ^ 20)
        Gigabyte = CLng(2 ^ 30)
        Terabyte = CLng(2 ^ 40)
        Petabyte = CLng(2 ^ 50)
        Exabyte = CLng(2 ^ 60)
    End Enum
 
End Namespace
 
#End Region
 
#Region " Filesize "
 
Namespace DevCase.Core.IO.FileSystem
 
    Public NotInheritable Class FileSize
 
#Region " Private Fields "
 
        Private ReadOnly bytesB As Double
 
#End Region
 
#Region " Properties "
 
        Public ReadOnly Property Size(sizeUnit As DigitalStorageUnits) As Double
            Get
                Return Convert(size:=Me.bytesB, fromUnit:=DigitalStorageUnits.Byte, toUnit:=sizeUnit)
            End Get
        End Property
 
        Public ReadOnly Property Size(sizeUnit As DigitalStorageUnits, decimalPrecision As Integer, Optional numberFormatInfo As NumberFormatInfo = Nothing) As String
            Get
                If numberFormatInfo Is Nothing Then
                    numberFormatInfo = CultureInfo.CurrentCulture.NumberFormat
                End If
                Return Me.Size(sizeUnit).ToString(String.Format("N{0}", decimalPrecision), numberFormatInfo)
            End Get
        End Property
 
        Public Property SizeRounded As Double
 
        Public ReadOnly Property SizeRounded(decimalPrecision As Integer, Optional numberFormatInfo As NumberFormatInfo = Nothing) As String
            Get
                If numberFormatInfo Is Nothing Then
                    numberFormatInfo = CultureInfo.CurrentCulture.NumberFormat
                End If
                Return Me.SizeRounded.ToString(String.Format("N{0}", decimalPrecision), numberFormatInfo)
            End Get
        End Property
 
        Public Property SizeUnit As DigitalStorageUnits
        Public Property SizeUnitNameShort As String
        Public Property SizeUnitNameLong As String
 
#End Region
 
#Region " Constructors "
 
        Private Sub New()
        End Sub
 
        <DebuggerStepThrough>
        Public Sub New(size As Double, sizeUnit As DigitalStorageUnits)
 
            Me.bytesB = System.Convert.ToDouble(size * sizeUnit)
 
            Select Case System.Math.Abs(Me.bytesB)
 
                Case Is >= DigitalStorageUnits.Petabyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Petabyte
                    Me.SizeUnit = DigitalStorageUnits.Petabyte
                    Me.SizeUnitNameShort = "PB"
                    Me.SizeUnitNameLong = "PetaBytes"
 
                Case Is >= DigitalStorageUnits.Terabyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Terabyte
                    Me.SizeUnit = DigitalStorageUnits.Terabyte
                    Me.SizeUnitNameShort = "TB"
                    Me.SizeUnitNameLong = "TeraBytes"
 
                Case Is >= DigitalStorageUnits.Gigabyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Gigabyte
                    Me.SizeUnit = DigitalStorageUnits.Gigabyte
                    Me.SizeUnitNameShort = "GB"
                    Me.SizeUnitNameLong = "GigaBytes"
 
                Case Is >= DigitalStorageUnits.Megabyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Megabyte
                    Me.SizeUnit = DigitalStorageUnits.Megabyte
                    Me.SizeUnitNameShort = "MB"
                    Me.SizeUnitNameLong = "MegaBytes"
 
                Case Is >= DigitalStorageUnits.Kilobyte
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Kilobyte
                    Me.SizeUnit = DigitalStorageUnits.Kilobyte
                    Me.SizeUnitNameShort = "KB"
                    Me.SizeUnitNameLong = "KiloBytes"
 
                Case Is >= DigitalStorageUnits.Byte, Is = 0
                    Me.SizeRounded = Me.bytesB / DigitalStorageUnits.Byte
                    Me.SizeUnit = DigitalStorageUnits.Byte
                    Me.SizeUnitNameShort = "Bytes"
                    Me.SizeUnitNameLong = "Bytes"
            End Select
 
        End Sub
 
#End Region
 
#Region " Public Methods "
 
        Public Overrides Function ToString() As String
            Return Me.ToString(CultureInfo.InvariantCulture.NumberFormat)
        End Function
 
        Public Overloads Function ToString(provider As IFormatProvider) As String
            Return If(Me.SizeUnit = DigitalStorageUnits.Byte,
                String.Format(provider, "{0:0.##} {1}", System.Math.Floor(Me.SizeRounded * 100) / 100, Me.SizeUnitNameShort),
                String.Format(provider, "{0:0.00} {1}", System.Math.Floor(Me.SizeRounded * 100) / 100, Me.SizeUnitNameShort))
        End Function
 
        Public Function ToStringFormatByteSize(flags As StrFormatByteSizeFlags) As String
 
            Dim buffer As New StringBuilder(8, 16)
            Dim result As Integer = NativeMethods.StrFormatByteSizeEx(CULng(Me.bytesB), flags, buffer, 16) ' HRESULT
            If result <> 0 Then
                Marshal.ThrowExceptionForHR(result)
            End If
 
            Return buffer.ToString()
        End Function
 
#End Region
 
#Region " Private Methods "
 
        <DebuggerStepThrough>
        Private Shared Function Convert(size As Double,
                                 fromUnit As DigitalStorageUnits,
                                 toUnit As DigitalStorageUnits) As Double
 
            Dim bytes As Double = If(fromUnit = DigitalStorageUnits.Byte, size, System.Convert.ToDouble(size * fromUnit))
 
            If toUnit < fromUnit Then
                Select Case toUnit
                    Case DigitalStorageUnits.Byte
                        Return bytes
 
                    Case DigitalStorageUnits.Kilobyte
                        Return bytes / DigitalStorageUnits.Kilobyte
 
                    Case DigitalStorageUnits.Megabyte
                        Return bytes / DigitalStorageUnits.Megabyte
 
                    Case DigitalStorageUnits.Gigabyte
                        Return bytes / DigitalStorageUnits.Gigabyte
 
                    Case DigitalStorageUnits.Terabyte
                        Return bytes / DigitalStorageUnits.Terabyte
 
                    Case DigitalStorageUnits.Petabyte
                        Return bytes / DigitalStorageUnits.Petabyte
 
                    Case Else
                        Throw New InvalidEnumArgumentException(argumentName:="toUnit", invalidValue:=CInt(toUnit),
                                                               enumClass:=GetType(DigitalStorageUnits))
                End Select
 
            ElseIf toUnit > fromUnit Then
                Select Case toUnit
 
                    Case DigitalStorageUnits.Byte
                        Return bytes
 
                    Case DigitalStorageUnits.Kilobyte
                        Return bytes * DigitalStorageUnits.Kilobyte / (DigitalStorageUnits.Kilobyte ^ 2)
 
                    Case DigitalStorageUnits.Megabyte
                        Return bytes * DigitalStorageUnits.Megabyte / (DigitalStorageUnits.Megabyte ^ 2)
 
                    Case DigitalStorageUnits.Gigabyte
                        Return bytes * DigitalStorageUnits.Gigabyte / (DigitalStorageUnits.Gigabyte ^ 2)
 
                    Case DigitalStorageUnits.Terabyte
                        Return bytes * DigitalStorageUnits.Terabyte / (DigitalStorageUnits.Terabyte ^ 2)
 
                    Case DigitalStorageUnits.Petabyte
                        Return bytes * DigitalStorageUnits.Petabyte / (DigitalStorageUnits.Petabyte ^ 2)
 
                    Case Else
                        Throw New InvalidEnumArgumentException(argumentName:="toUnit", invalidValue:=CInt(toUnit),
                                                               enumClass:=GetType(DigitalStorageUnits))
                End Select
 
            Else ' If toUnit = fromUnit 
                Return bytes
 
            End If
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region
 
#Region " FileSizeConverter "
 
Namespace DevCase.Runtime.TypeConverters
 
    Public Class FileSizeConverter : Inherits TypeConverter
 
#Region " Private Fields "
 
        Private ReadOnly sizeUnitsDictionary As Dictionary(Of String(), ULong)
 
#End Region
 
#Region " Constructors "
 
        Public Sub New()
            Me.sizeUnitsDictionary = New Dictionary(Of String(), ULong)(StringComparison.OrdinalIgnoreCase) From {
                {{"b", "byte", "bytes"}, 1UL},
                {{"KB", "kilo", "kilos", "kilobyte", "kilobytes", "kilo byte", "kilo bytes"}, 1024UL},
                {{"MB", "mega", "megas", "megabyte", "megabytes", "mega byte", "mega bytes"}, CULng(1024UL ^ 2UL)},
                {{"GB", "giga", "gigas", "gigabyte", "gigabytes", "giga byte", "giga bytes"}, CULng(1024UL ^ 3UL)},
                {{"TB", "tera", "teras", "terabyte", "terabytes", "tera byte", "tera bytes"}, CULng(1024UL ^ 4UL)},
                {{"PB", "peta", "petas", "petabyte", "petabytes", "peta byte", "peta bytes"}, CULng(1024UL ^ 5UL)},
                {{"EB", "exa", "exas", "exabyte", "exabytes", "exa byte", "exa bytes"}, CULng(1024UL ^ 6UL)}
            }
        End Sub
 
#End Region
 
#Region " Public Methods "
 
        Public Overrides Function CanConvertFrom(context As ITypeDescriptorContext, sourceType As Type) As Boolean
 
            Return sourceType Is GetType(String) OrElse
                   MyBase.CanConvertFrom(context, sourceType)
        End Function
 
        Public Overrides Function CanConvertTo(context As ITypeDescriptorContext, destinationType As Type) As Boolean
 
            Return destinationType Is GetType(ULong) OrElse
                   destinationType Is GetType(String) OrElse
                   MyBase.CanConvertTo(context, destinationType)
        End Function
 
        <DebuggerStepThrough>
        Public Overrides Function ConvertFrom(context As ITypeDescriptorContext, culture As CultureInfo, value As Object) As Object
 
            If TypeOf value Is String Then
                Dim strValue As String = DirectCast(value, String)
                If strValue.Contains("("c) Then
                    strValue = strValue.Substring(0, strValue.IndexOf("("c))
                End If
                Dim bytes As ULong
                If ULong.TryParse(strValue, bytes) Then
                    Return bytes
                End If
                bytes = Me.ParseFileSizeString(strValue)
                If bytes <> 0UL Then
                    If context.PropertyDescriptor IsNot Nothing AndAlso context.PropertyDescriptor.PropertyType Is GetType(FileSize) Then
                        Return New FileSize(bytes, DigitalStorageUnits.Byte)
                    Else
                        Return DirectCast(bytes, Object)
                    End If
                End If
            End If
 
            Return MyBase.ConvertFrom(context, culture, value)
        End Function
 
        <DebuggerStepThrough>
        Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
            If destinationType Is GetType(String) Then
                Dim bytes As ULong = If((TypeOf value Is FileSize), CULng(DirectCast(value, FileSize).Size(DigitalStorageUnits.Byte)), DirectCast(value, ULong))
                Dim formattedSize As String = Me.FormatByteFileSize(bytes)
                Return If(bytes < 1024, String.Format("{0}", formattedSize), String.Format("{0} ({1:N0} bytes)", formattedSize, bytes))
            End If
 
            Return MyBase.ConvertTo(context, culture, value, destinationType)
        End Function
 
#End Region
 
#Region " Private Methods "
 
        <DebuggerStepThrough>
        Private Function ParseFileSizeString(sizeString As String) As ULong
 
            Dim trimmedSizeString As String = sizeString.Trim()
            If trimmedSizeString.Contains("("c) Then
                trimmedSizeString = trimmedSizeString.Substring(0, trimmedSizeString.IndexOf("("c))
            End If
 
            For Each kvp As KeyValuePair(Of String(), ULong) In sizeUnitsDictionary
                For Each sizeUnitName As String In kvp.Key
                    If trimmedSizeString.EndsWith(sizeUnitName, StringComparison.OrdinalIgnoreCase) Then
                        Dim numString As String = trimmedSizeString.Substring(0, trimmedSizeString.Length - sizeUnitName.Length).Trim()
                        Dim num As Double
                        Dim numberFormat As IFormatProvider
#If NETCOREAPP Then
                        numberFormat = Thread.CurrentThread.CurrentUICulture.NumberFormat
#Else
                        numberFormat = My.Application.UICulture.NumberFormat
#End If
                        If Double.TryParse(numString, NumberStyles.Number, numberFormat, num) Then
                            Try
                                Return CULng((num * kvp.Value))
                            Catch ex As OverflowException
                                Return ULong.MaxValue
                            Catch ex As Exception
                                Throw
                            End Try
                        End If
                    End If
                Next sizeUnitName
            Next kvp
 
            Throw New Exception("Cannot parse the specified file size value.")
        End Function
 
 
        <DebuggerStepThrough>
        Private Function FormatByteFileSize(bytes As ULong) As String
            Dim unitIndex As Integer = 0
            Dim fileSize As Double = bytes
 
            While (fileSize >= 1024) AndAlso (unitIndex < sizeUnitsDictionary.Count - 1)
                fileSize /= 1024
                unitIndex += 1
            End While
 
            Return If(unitIndex = 0,
                       String.Format("{0} bytes", fileSize),
                       String.Format("{0:F2} {1}", fileSize, sizeUnitsDictionary.ElementAt(unitIndex).Key(0)).Replace(",00", ""))
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region
 
#Region " PropertyGridExtensions "
 
Namespace DevCase.Extensions.PropertyGridExtensions
 
    <HideModuleName>
    Public Module PropertyGridExtensions
 
#Region " Public Extension Methods "
 
        <DebuggerStepThrough>
        <Extension>
        <EditorBrowsable(EditorBrowsableState.Always)>
        Public Function IsInitialized(propGrid As PropertyGrid) As Boolean
 
            Return PropertyGridExtensions.GetInternalLabelWidth(propGrid) <> -1
        End Function
 
        <DebuggerStepThrough>
        <Extension>
        <EditorBrowsable(EditorBrowsableState.Always)>
        Public Sub SetSplitterPosition(propGrid As PropertyGrid, xPos As Integer)
 
            If Not PropertyGridExtensions.IsInitialized(propGrid) Then
                Throw New InvalidOperationException("The PropertyGrid must be initialized in order to set the splitter control position.")
            End If
 
            Dim internalGridView As Control = PropertyGridExtensions.GetPropertyGridInternal(propGrid)
            Dim moveSplitterToMethod As MethodInfo = internalGridView.GetType().GetMethod("MoveSplitterTo", BindingFlags.NonPublic Or BindingFlags.Instance)
            moveSplitterToMethod.Invoke(internalGridView, {xPos})
        End Sub
 
#End Region
 
#Region " Private Methods "
 
        Private Function GetPropertyGridInternal(propGrid As PropertyGrid) As Control
 
            ' Class: System.Windows.Forms.PropertyGridInternal.PropertyGridView
 
            Dim getPropertyGridViewMethod As MethodInfo = GetType(PropertyGrid).GetMethod("GetPropertyGridView", BindingFlags.NonPublic Or BindingFlags.Instance)
            Dim gridView As Control = DirectCast(getPropertyGridViewMethod.Invoke(propGrid, Array.Empty(Of Object)()), Control)
            Return gridView
 
            ' We can also retrieve the internal PropertyGridView this other way:
            ' ------------------------------------------------------------------
            ' Dim gridViewFieldInfo As FieldInfo = propGrid.GetType().GetField("gridView", BindingFlags.Instance Or BindingFlags.NonPublic)
            ' Dim gridView As Control = DirectCast(gridViewFieldInfo.GetValue(propGrid), Control)
            ' Return gridView
        End Function
 
        Private Function GetInternalLabelWidth(propGrid As PropertyGrid) As Integer
 
            Dim internalGridView As Control = PropertyGridExtensions.GetPropertyGridInternal(propGrid)
            Dim propInfo As PropertyInfo = internalGridView.GetType().GetProperty("InternalLabelWidth", BindingFlags.NonPublic Or BindingFlags.Instance)
            Return CInt(propInfo.GetValue(internalGridView))
        End Function
 
#End Region
 
    End Module
 
End Namespace
 
#End Region
'@ 
$assembly = Add-Type -TypeDefinition $vbCode `
                      -CodeDomProvider (New-Object Microsoft.VisualBasic.VBCodeProvider) `
                      -PassThru `
                      -ReferencedAssemblies "Microsoft.VisualBasic.dll", `
                                            "System.Windows.Forms.dll", `
                                            "System.Security.dll", `
                                            "System.Collections.dll", `
                                            "System.Drawing.dll", `
                                            "System.Globalization.dll", `
                                            "System.Reflection.dll", `
                                            "System.Linq.dll", `
                                            "System.IO.dll", `
                                            "System.Xml.dll", `
                                            "System.Xml.Serialization.dll", `
                                            "System.dll" `
                      | where { $_.IsPublic }
 
 
function Get-FormattedSize {
    param (
        [int64]$sizeInBytes
    )
 
    $buffer = New-Object System.Text.StringBuilder 24
    $resultPtr = [DevCase.Win32.NativeMethods.ShlwApi]::StrFormatByteSize64A($sizeInBytes, $buffer, $buffer.Capacity)
 
    if ($resultPtr -eq [IntPtr]::Zero) {
        return "Error formatting the file size."
    } else {
        return $buffer.ToString()
    }
}
 
function WriteDummyFile {
    param (
        [string]$FilePath,
        [uint64]$FileSize,
        [uint64]$BufferSize = 4MB,
        [bool]$randomData = $false
    )
 
    $formattedFileSize = Get-FormattedSize -sizeInBytes $FileSize
 
    $fs = [System.IO.File]::Create($FilePath)
 
    if ($BufferSize -ge $FileSize) {
        $BufferSize = [math]::Floor($FileSize / 2)
    }
 
    [int64]$bytesWritten = 0
    $buffer = New-Object byte[] $BufferSize
    $rand = New-Object Random
 
    Write-Host "Creating dummy file at '$FilePath' with a size of $formattedFileSize..."
 
    while ($bytesWritten -lt $FileSize) {
        $bytesToWrite = [math]::Min($BufferSize, $FileSize - $bytesWritten)
 
        if ($randomData) {
            $rand.NextBytes($buffer)
        } else {
            [Array]::Clear($buffer, 0, $bytesToWrite)
        }
 
        $fs.Write($buffer, 0, $bytesToWrite)
 
        $bytesWritten += $bytesToWrite
        $formattedBytesWritten = Get-FormattedSize -sizeInBytes $bytesWritten
 
        $progressPercent = [math]::Min(($bytesWritten / $FileSize) * 100, 100)
 
        Write-Progress -PercentComplete $progressPercent -Status "$FilePath" -Activity "Writing dummy file..." -CurrentOperation "$formattedBytesWritten written."
    }
        Write-Progress -PercentComplete 100 -Status "$FilePath" -Activity "Dummy file has been written." -CurrentOperation "$formattedBytesWritten written."
 
    $fs.Close()
 
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host ""
    Write-Host "Dummy file successfully created at '$FilePath' with a size of $formattedFileSize."
}
 
 
$form = New-Object CreateDummyFileOptionsForm
$dlgResult = $form.ShowDialog()
 
if ($dlgResult -eq [System.Windows.Forms.DialogResult]::OK) {
    $fileOptions = $form.DummyFileOptions
    WriteDummyFile -FilePath $fileOptions.FilePath -FileSize $fileOptions.FileSizeBytes -BufferSize $fileOptions.BufferSizeBytes -randomData $fileOptions.UseRandomData
} else {
    Write-Host "Operation canceled. No file selected."
}
 
Write-Host "Press any key to exit..."
$key = [System.Console]::ReadKey($true)
Exit(0)
 

En honor a quienes caminaron antes que nosotros

A lo largo de los años, muchas personas han pasado por este foro, compartiendo su conocimiento, su tiempo y su pasión por la informática y el hacking ético. Pseudónimos como Simorg, Randomize o engel lex, entre tantos otros que se merecen una mención, quedarán en el recuerdo de muchos, y perdurarán por siempre en las páginas del foro ...o al menos hasta que el-brujo pulse el botón rojo. 🔌

Algunos fueron mentores, otros fueron compañeros de aprendizaje, otros fueron amigos, y todos ellos dejaron su marca en cada hilo, en cada respuesta y en cada solución compartida. 🏆 Sois los mejores, ¡todos!.

Este humilde y pequeño homenaje está dedicado para aquellos que ya no están activos, pero cuyo legado sigue vivo en cada línea de código y en cada enseñanza que dejaron: gracias. Sus aportes siguen iluminando el camino de quienes hoy buscan aprender, tal como ustedes lo hicieron en su momento.

Foro.elhacker.net no es solo una comunidad, es el reflejo de la perseverancia, el altruismo y el esfuerzo de quienes alguna vez estuvieron aquí y quienes siguen estando resolviendo dudas, demostrando que el conocimiento es más valioso cuando se comparte.

A todos ustedes, los que alguna vez fueron parte de esto, los que caminaron antes que nosotros: no se les olvida.

🙏 Gracias por todo.

Atentamente,
Elektro.

Me estoy refiriendo al hilo creado por el usuario ZonalSage25, que se encuentra en la papelera, y que lleva por título: "que tipo de intrucion es etsa" (así, mal escrito)

Soy una persona muy confiada y que jamás ha sufrido baneos ni mucho menos he sufrido la constante eliminación indiscriminada de mis posts sin tener el detalle de avisarme ni nada, que sino, me daría por pensar que cierto moderador lo ha borrado simplemente por que yo he publicado una respuesta, con bastante texto que me ha costado redactar, y ese moderador lo sabe, y por eso lo elimina (para fastidiar).

Pero como digo, eso es solo lo que pensaría alguien muy desconfiado... ¿verdad?.

Un usuario que formula una pregunta normal y corriente como otra cualquiera; la única respuesta que hay en ese hilo es mi respuesta, con bastante texto y explicaciones para resolverle la consulta al usuario, pero se decide eliminar el hilo. Vaya.

¡Un saludo!

Nintendo lo ha vuelto a hacer.  

Tras la demanda presentada en torno a marzo de 2024 por la compañía Nintendo contra los autores de los emuladores Yuzu y Citra, a comienzos de este octubre de 2024 se ha revelado que Nintendo contactó a los creadores de otro emulador para Switch, conocido como Ryujinx, quienes han decidido cerrar el proyecto a raíz de un acuerdo extrajudicial con la compañía de video juegos.

🌐 En el siguiente enlace tienen la oportunidad de descargar una copia de la última versión pública conocida, Ryujinx 1.1.1403:

    ⚫ https://drive.google.com/drive/folders/1hljtWr52piwbXZfcvI9eC8LoALi5SHGi

    ⚠️ Ignoro el autor de esta carpeta compartida, la cual se publicó en este hilo de Reddit.
    ✔️ La integridad de estos archivos ejecutables resulta confiable, un análisis en VirusTotal muestra 2 detecciones (de 72 AV analizados), que serán falsos positivos,
          exactamente como ocurre al analizar una versión legítima anterior que fue descargada desde el GitHub de Ryujinx.

👌 También les podría interesar:
    
    ⚫ Emuladores Yuzu y Citra: Aquí puedes descargar sus últimas versiones.

Eso sería todo. ¡Disfrútenlo mientras todavía se pueda!

Atentamente,
Elektro.

Hola.

Considero que alguien debería informar al usuario gerardomunoz de que, por respeto a los demás usuarios y colaboradores / participantes, de ahora en adelante mencione que sus respuestas son generadas por IA cuando vuelva a publicarlas.

De hecho, y en mi opinión, considero que esto debería establecerse como una norma del foro. Y si se detecta que un usuario - que ya esté avisado con anterioridad - sigue generando respuestas con IA sin mencionarlo, pues se le debería sancionar.

No solo es una cuestión de respeto, sino de sentido común. Cualquier persona que utilice IA para generar respuestas en el foro debería dejarlo claro, ya que las respuestas de una IA son totalmente genéricas (en muchas ocasiones no son capaces de profundizar para servir de ayuda) y muchísimas veces hace afirmaciones falsas, que parecen muy creíbles, por que si algo puede hacer una IA es escribir de forma académica, profesional, con carisma y autoridad para terminar convenciéndote de cualquier cosa... hasta que te pones a verificar la información por ti mismo y descubres que no era cierto lo que te dijo la IA. Y no me estoy refiriendo a temas que sean muy abstractos o complejos, la IA puede afirmar cosas falsas hasta con los resultados de simples operaciones de sumar y restar.

Quien utilice servicios de texto de IA generativa tipo ChatGPT a menudo, ya sabrá que lo que digo es tal y como lo afirmo.

Y no voy a entrar en debates innecesarios sobre si las respuestas de ese usuario están o no están generadas IA (SPOILER: si que lo están). Quien esté lo suficientemente acostumbrado a utilizar IA, y quien además conozca las herramientas adecuadas (al alcance de todo el mundo) para detectar frases generadas por IA, ya sabe que lo que estoy afirmando es cierto.

Esto es un foro, y la esencia de un foro no se debería echar a perder permitiendo que cualquier usuario publique respuestas generadas por IA sin avisar de ello. Y ese es el punto, que haya usuarios que copien y peguen la respuesta generada por ChatGPT, como si se tratase de un bot que se pone a responder a las dudas de los usuarios, pero con pequeñas modificaciones para añadir un "¡Hola!" y un "Hasta luego". Creo que eso no es nada correcto. Y si eso se empezase a tomar por costumbre entre más usuarios, y sin que haya unas reglas que lo regulen, entonces esto ya no será un foro, se convertirá en otra cosa distinta (para peor).

Un saludo y gracias por leer.

Atentamente, Elektro.

Las reglas generales del foro: https://foro.elhacker.net/reglas

El siguiente script desarrollado en el lenguaje PowerShell sirve para automatizar la creación de reglas del firewall de Windows para bloquear tráfico de direcciones IPv4.

Las direcciones IPv4 pueden estar definidas en el propio script, o en un archivo de texto local.

En la cabecera del script, se puede asignar el valor apropiado para especificar la ruta de un archivo que contenga direcciones IPv4:

Ejemplo del contenido del archivo:

O directamente también se pueden establecer las IPv4 a bloquear, en el siguiente array:

---

---

Block IP addresses.ps1

# Script Version 1.3
 
<#
===========================================================================================
|                                                                                         |
|                                      User Settings                                      |
|                                                                                         |
===========================================================================================
#>
 
# Path to a plain text file containing IP addresses.
# Note: The file must contain a single IP address per line.
[string] `
$ipListFile = "$PSScriptRoot\Ipv4.txt"
 
# An Array with additional IP addresses to block.
[string[]] `
$ipArray = @()
 
<#
===========================================================================================
|                                                                                         |
|                                    Functions                                            |
|                                                                                         |
===========================================================================================
#>
 
function Show-WelcomeScreen {
    Clear-Host
    Write-Host ""
    Write-Host " $($host.ui.RawUI.WindowTitle)"
    Write-Host " +=======================================+"
    Write-Host " |                                       |"
    Write-Host " | This script will add firewall rules   |"
    Write-Host " | to block network traffic for the IP   |"
    Write-Host " | addresses specified in the input file |"
    Write-Host " | and/or defined in this script file.   |"
    Write-Host " |                                       |"
    Write-Host " +=======================================+"
    Write-Host ""
    Write-Host " Input File Path: $ipListFile" -ForegroundColor DarkGray
    Write-Host ""
    Write-Host " IP addresses hardcoded in this script: $($ipArray.Count)" -ForegroundColor DarkGray
    Write-Host ""
}
 
function Confirm-Continue {
    Write-Host " Press 'Y' key to continue or 'N' key to exit."
    Write-Host ""
    Write-Host " -Continue? (Y/N)"
    do {
        $key = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
        $char = $key.Character.ToString().ToUpper()
        if ($char -ne "Y" -and $char -ne "N") {
            [console]::beep(1500, 500)
        }
    } while ($char -ne "Y" -and $char -ne "N")
    if ($char -eq "N") {Exit(1)} else {Clear-Host}
}
 
function Show-GoodbyeScreen {
    Write-Host "Operation Completed!" -BackgroundColor Black -ForegroundColor Green
    Write-Host ""
    Write-Host "Press any key to exit..."
    $key = $Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown")
}
 
function Add-FirewallRules {
    param (
        [string]$ipListFile,
        [string[]]$ipArray
    )
 
    Write-Host "Compiling internal C# code..."
    # Natural Sorting C# Snippet
    Add-Type -TypeDefinition '
        using System;
        using System.Collections.Generic;
        using System.Runtime.InteropServices;
 
        public static class NativeMethods {
            [DllImport("shlwapi.dll", CharSet = CharSet.Unicode)]
            public static extern int StrCmpLogicalW(string first, string second);
        }
 
        public class NaturalStringComparer : IComparer<string> {
            public int Compare(string first, string second) {
                return NativeMethods.StrCmpLogicalW(first, second);
            }
        }
    '
 
    Write-Host "Fetching computer's firewall rules..."
    $ruleGroupName = "$env:COMPUTERNAME IP Blocks"
    [CimInstance[]]$currentRules = Get-NetFirewallRule -Group $ruleGroupName -ErrorAction SilentlyContinue
 
    Write-Host "Building IP address collection..."
    $comparer = [NaturalStringComparer]::new()
    $sortedSet = [System.Collections.Generic.SortedSet[string]]::new($ipArray, $comparer)
    if (Test-Path $ipListFile) {
        Write-Host "Fetching IP addresses from input file..."
        $ipList = Get-Content -Path $ipListFile | Where-Object { -not [string]::IsNullOrWhiteSpace($_) }
        foreach ($ip in $ipList) {
            $sortedSet.Add($ip) | Out-Null
        }
    }
    if ($sortedSet.Count -eq 0) {
        Write-Warning "There are no IP addresses to process."
        return
    }
    $totalItemCount   = $sortedSet.Count
    $currentItemIndex = 0
 
    Write-Host "Start processing IP address collection..."
    Write-Host ""
    foreach ($ip in $sortedSet) {
        $currentItemIndex +=1
        Write-Host "[$currentItemIndex of $totalItemCount] IP address: $ip"
 
        $ruleNameInbound = "IP Block (Inbound) ($ip)"
        $currentRules | Where-Object {
            $_.DisplayName -eq $ruleNameInbound
        } -ErrorAction SilentlyContinue | Remove-NetFirewallRule
 
        Write-Host "Adding firewall rule to block inbound traffic..." -ForegroundColor DarkGray
        [CimInstance]$ruleInbound = 
            New-NetFirewallRule `
                -DisplayName "$ruleNameInbound" `
                -Description "This rule disables incoming traffic for address: $ip" `
                -Group "$ruleGroupName" `
                -Direction "Inbound" `
                -Action "Block" `
                -RemoteAddress "$ip" `
                -Profile "Any" `
                -Enabled "True" `
                -LocalAddress "Any" `
                -InterfaceType "Any"
 
        $ruleNameOutbound = "IP Block (Outbound) ($ip)"
        $currentRules | Where-Object {
            $_.DisplayName -eq $ruleNameOutbound
        } -ErrorAction SilentlyContinue | Remove-NetFirewallRule
 
        Write-Host "Adding firewall rule to block outbound traffic..." -ForegroundColor DarkGray
        [CimInstance]$ruleOutbound = 
            New-NetFirewallRule `
                -DisplayName "$ruleNameOutbound" `
                -Description "This rule disables outgoing traffic for address: $ip" `
                -Group "$ruleGroupName" `
                -Direction "Outbound" `
                -Action "Block" `
                -RemoteAddress "$ip" `
                -Profile "Any" `
                -Enabled "True" `
                -LocalAddress "Any" `
                -InterfaceType "Any"
 
        Write-Host ""
    }
}
 
<#
===========================================================================================
|                                                                                         |
|                                         Main                                            |
|                                                                                         |
===========================================================================================
#>
 
[System.Console]::Title = "Block IP addresses - by Elektro"
[CultureInfo]::CurrentUICulture = "en-US"
 
try { Set-ExecutionPolicy -ExecutionPolicy "Unrestricted" -Scope "Process" } catch { }
 
Show-WelcomeScreen
Confirm-Continue
Add-FirewallRules -ipListFile $ipListFile -ipArray $ipArray
Show-GoodbyeScreen
Exit(0)

---

Notas:

 - Probado en Windows 10 (PowerShell 5.1.19041.1682). Debería funcionar igual en Windows 11.

EDITADO: Script actualizado a la versión 1.1. Al final he decidido utilizar el cmdlet New-NetFirewallRule a pesar de los inconvenientes, por que entiendo que así será más compatible y útil para más gente.

EDITADO: Script actualizado a la versión 1.2. Se ha mejorado bastante la velocidad de ejecución del código, optimizando la metodología de obtención de las reglas de firewall del equipo.

EDITADO: Script actualizado a la versión 1.3. Últimos ajustes y micro-optimizaciones aplicados ().

Hola a todos!

Llevo indeciso con el siguiente asunto casi medio año, así que he decidido lanzarme a compartir mis dudas en el foro para ver si alguien puede opinar algo que me haga decantarme por una u otra opción...

El caso es que tengo una placa base con socket AM4 donde tengo instalado un procesador AMD RYZEN 7 1700X, cuyas especificaciones técnicas son las siguientes: https://www.techpowerup.com/cpu-specs/ryzen-7-1700x.c1892

Lo compré en el año 2017, y va siendo hora de actualizarlo...

Y entonces se me plantean las dos siguientes opciones:

 ⚫ AMD Ryzen 7 5800X 3D:
      https://www.amd.com/en/products/processors/desktops/ryzen/5000-series/amd-ryzen-7-5800x3d.html

 ⚫ AMD Ryzen 9 5950X:
      https://www.amd.com/en/products/processors/desktops/ryzen/5000-series/amd-ryzen-9-5950x.html

Son los mejores procesadores lanzados para el socket AM4, es decir, el tope de gama para AM4. No merece la pena compararlos con ningún otro procesador AMD con socket AM4 (ya lo hice, y además he visto muchas reseñas de especialistas en Youtube).

Ambos tienen especificaciones técnicas muy similares. Los benchmarks como el siguiente, no me parecen lo suficientemente concluyentes como para despejarme las dudas: https://cpu.userbenchmark.com/Compare/AMD-Ryzen-9-5950X-vs-AMD-Ryzen-7-5800X3D/4086vsm1817839

Y, por si eso fuese poco para decidirse, también comparten un precio prácticamente idéntico (aunque ahora mismo haya una diferencia notable en tiendas online como Amazon, lo cierto es que muchas veces se suelen poner a 320€ los dos, incluso a 300€).

No sé decidirme por uno de estas dos CPUs, y al final no hago otra cosa más que desaprovechar las oportunidades de compra con precios reducidos, por que termino por no comprar ninguno de los dos.

---

Mi pregunta:

¿Cual de esos dos procesadores debería elegir, y por qué motivos?.

Por si sirve de algo, deciros que el PC está encendido las 24 hrs los 365 días del año. En teoría ambas CPU tienen el mismo TDP, pero me da miedo que una termine consumiendo más que la otra y eso se vea reflejado en el recibo de la luz. Mi actual Ryzen 7 1700X tiene un TDP de 95W, en comparación con los 105W de esas otras dos CPU más modernas. Realmente no tengo ni idea de cómo pueden afectar 10W de más (y sin descanso) al precio del recibo de la luz.

Realizo tareas multi-hilo intensivas como codificación de video. Muy ocasionalmente juego a video juegos, y cuando lo hago no me importa reducirle el nivel de detalles gráficos que el PC pueda tirar mejor, y con mi actual Ryzen no me puedo quejar de las cargas en video juegos que no dependan de la GPU.

Supongo que lo que más me gustaría mejorar con uno de esos dos CPU es la velocidad / tiempo total para la codificación de videos.

Y creo que eso es todo lo que quería exponer. Muchas gracias por su tiempo. ¡Espero sus opiniones!.

Atentamente, Elektro.

Hola. Desde hace unas semanas, he estado recibiendo el siguiente correo electrónico en múltiples ocasiones:



Observen a quién está dirigido: elektrostudios@elhacker.net, una cuenta de correo que teóricamente ya no existe porque el-brujo la suspendió cuando lo solicité, ya hace años.

En estos correos, se hacen pasar por el "equipo de cuentas" del foro (xD). Supongo que esto constituye un delito denunciable.

No estoy seguro de si se puede hacer algo al respecto desde la administración. No me refiero a denunciar, sino a detener las acciones de este individuo. Por mi parte, ya he informado sobre el phishing al equipo técnico de Microsoft (donde a mi me llegan estos correos) en todas las ocasiones posibles, para que terminen bloqueando el dominio de origen. Creo que es lo único que puedo hacer.

¿A ustedes, los ex/miembros del staff que tienen una cuenta de @elhacker.net, también les ha llegado este burdo intento de robar los datos de sus cuentas de correo?

La respuesta a esa pregunta al menos ayudaría a verificar si hay varias víctimas de este ataque, o si tal vez este intento de aparente robo de contraseña solo va dirigido a mí. ¡Quién sabe!, yo no lo sé, por eso pregunto para obtener más información.

---

EDICIÓN:
El enlace "Validar Datos" del correo que he compartido lleva a esta URL:

• https://innfinitummail.com/app.php?login=elektrostudios@elhacker.net

(no he ingresado al sitio)

Observen la doble "n" en el nombre, que pretende suplantar la identidad del servicio legítimo de infinitummail.com.

El dominio se creó el 30 de abril de este año como se puede comprobar aquí:


En fin, no sé quién estará detrás de esta doble suplantación, pero intentar obtener las contraseñas de los miembros del foro con cuentas @elhacker.net, que han sido concedidas por el administrador de la web y cuya gestión es únicamente por parte de él, no tiene sentido. Si hay algún problema de "actividad sospechosa", se recupera y cambia la contraseña de forma tradicional con Google, no mediante un "equipo de cuentas" xD.

A menos que esto sea un ataque de phising organizado, es decir, en  caso de que sea un solo individuo quien está llevando a cabo estos ataques, esa persona es un completo inútil e incompetente al pensar que alguien en el ex/staff o los ex/colaboradores del foro podrían caer en esta trampa tan absurda y terminar introduciendo sus datos de inicio de sesión.

Que siga malgastando dinero en comprar dominios baratos y en redactar patéticos correos electrónicos, que conmigo lo tienen difícil. xD

¡Saludos!

Me gustaría descubrir un programa para Windows, con una interfaz gráfica de usuario, que sea capaz de cargar un archivo de audio AC-3 para cortar (y pegar) en algunos puntos del stream de audio, sin volver a codificar el audio.

Cuando pienso en este tipo de aplicación, lo ideal sería que tuviera similitud con la interfaz de usuario de mp3DirectCut (https://mpesch3.de/):

  

Requisitos:
-----------

  - Freeware (de código abierto o no, no importa) o Freemium (parcialmente gratuito con funciones premium deshabilitadas).
  - Funciona en Windows 10 (x64).
  - Con interfaz gráfica de usuario (GUI) donde puedes seleccionar un rango, por lo que no necesitas ingresar manualmente los códigos de tiempo para cortar.
  - Tiene un visualizador de flujo de audio (o "visualizador de ondas"), como en la captura de pantalla anterior.
  - Puede reproducir el audio, cortarlo en cualquier punto y pegar un silencio en cualquier punto.
  - Edición sin pérdidas, "lossless" (es decir, no requiere volver a codificar el archivo de audio).
  - Soporta estéreo o canales 5.1.

Nota: las sugerencias de software pago también son bienvenidas, si son económicas para uso privado (no soluciones corporativas que cuestan cientos o miles de euros).

Muchas gracias por su atención.