Etiqueta: truco

  • Simular discard de C# en Visual Basic

    Pues eso… haciendo pruebas con el conversor de C# a VB de Paul1956 comprobé que los discard de C# (asignación digamos que nula de una función o descartes según la traducción al español ) los generaba usando dos guiones bajo (undercore) y el «asistente» de VS indicó que creara una función para usar ese descarte. Y al ver que es válido usar el nombre __ (dos guiones bajos) como nombre de una función, pensé que también sería válido para una propiedad… de forma que se pudiese haccer ese tipo de asignación.

    Por ejemplo, si tenemos este código de C# en el que se «descarta» el valor devuelto por la función MostrarAyuda:

    class Program
    {
        static void Main(string[] args)
        {
            _ = MostrarAyuda(true, false);
    
            //Console.WriteLine(_);
    
            Console.WriteLine();
            Console.WriteLine("Pulsa una tecla para finalizar.");
            Console.ReadKey();
        }
    
        private static string MostrarAyuda(bool value1, bool value2)
        {
            var s = $"Valores: value1: {value1}, value2: {value2}";
            Console.WriteLine(s);
            return s;
        }
    }
    

    La conversión podría quedar de esta forma:

    Public Shared Sub Main(args As String())
        '__ = MostrarAyuda(True, False)
    
        __ = MostrarAyuda(True, False)
    
        Console.WriteLine(__)
    
        Console.WriteLine()
        Console.WriteLine("Pulsa una tecla para finalizar.")
        Console.ReadKey()
    End Sub
    
    Private Shared Property __ As Object
    
    Private Shared Function MostrarAyuda(value1 As Boolean, value2 As Boolean) As String
        Dim s = $"Valores: value1: {value1}, value2: {value2}"
        Console.WriteLine(s)
        Return s
    End Function
    

    Es un apaño, pero puede valer para equiparar los dos lenguajes.

    Nota:
    Fíjate que en VB al ser una propiedad válida la podemos usar como cualquier otra variable para mostrar el contenido.

    Y esto es todo… a ver si lo implementa y así no dará error cuando se convierta código de C# que tenga ese tipo de asignación (que la implementaron en C# 7.0)

    Nos vemos.
    Guillermo

  • Escribir código en C#. Guía para los developers de Visual Basic

    Pues eso… Ahora que estoy empezando a escribir más programas en C# me doy cuenta de que esto de poner al final de cada sentencia un punto y coma es un poco engorroso. La idea sería que cuando se escribe una línea en C# al pulsar intro en el IDE de Visual Studio automáticamente le agregara el punto y coma al final. Esto lo he puesto como sugerencia en la Developer Community a ver si hacen caso, aunque no sé yo… si quieres ver esa sugerencia (Add automatically the semicolon (;) at the end when writing a new sentence in C# ), sigue el enlace.

    Lo que si me he dado cuenta, o más bien, he confirmado, es que salvo excepciones y algunas características propias, escribir código en C# es casi como en Visual Basic. Por supuesto, si escribes una array debes usar corchetes [] en vez de paréntesis (), debes agregarle a todos los métodos sin parámetros los paréntesis al final, o la forma de escribir un simple if, tienes que acostumbrarte a poner entre paréntesis lo que vayas a comprobar con ese if.

    Después hay cosas que son más raras (C# y otros lenguajes de la misma familia son expertos en esas rarezas que la gente de Visual Basic vemos como ganas de complicarse la vida, jejeje, pero bueno, es cuestión de ir acostumbrándose) por ejemplo el operador ternario de C# que en Visual Basic lo escribimos como un If(comprobación, valor si true, valor si false):

    Dim s = If( valor, "Es True", "Es False")
    dim s = if(valor,  "Es True" , "Es False")

    en C# hay que hacerlo así:

    var s = valor ? "Es True" : "Es False";
    var s = valor ? "Es True" : "Es False";

    Esto asigna a la variable s lo que corresponda, dependiendo de que la variable valor contenga un valor verdadero o falso.

    Viendo el código de VB que te acabo de poner, parece que me contradigo con lo que he comentado de los ifs de C# (que hay que ponerlo entre paréntesis) pero es que este If que he usado en VB es un If especial, y sirve para lo que acabo de explicarte.

    Si queremos usar un If normal podríamos hacerlo de la siguiente forma:

    Dim s = ""
    If valor Then
        s = "Es True"
    Else
        s = "Es False"
    End If
    Dim s = ""
    If valor Then
        s = "Es True"
    Else
        s = "Es False"
    End If
    

    En C# sería algo así (se puede escribir con o sin llaves {}:

    var s = "";
    if( valor )
        s = "Es True";
    else
        s = "Es False";
    var s = "";
    if( valor )
        s = "Es True";
    else
        s = "Es False";
    

    De esta forma, es para cuando después del if o del else solo hay una instrucción, si queremos poner más de una instrucción, debemos usar las llaves:

    var s = "";
    if( valor )
    {
        s = "Es True";
    }
    else
    {
        s = "Es False";
    }
    var s = "";
    if (valor)
    {
        s = "Es True";
    }
    else
    {
        s = "Es False";
    }
    

    Y así… más cosas… como los bucles for, etc.

    No voy a seguir porque no es plan de hacer un curso de cómo hacer las cosas en los dos lenguajes, de todas formas, en mi sitio (www.elguille.info) y en este blog los ejemplos de código que pongo los tengo en los dos lenguajes.

    Y si te interesa saber algunas de las equivalencias entre Visual Basic .NET y C# las puedes encontrar en esta página (en realidad son 3 páginas de equivalencias):

    Equivalencias entre VB.NET y C# (1) (elguille.info)

    Equivalencias entre Visual Basic para .NET y C# (2) (elguille.info)

    Equivalencias entre Visual Basic para .NET y C# (3) (elguille.info)

    En otro momento le echaré un vistazo al contenido completo y veré si añado nuevas cosas, que las hay… ya que la última página la publiqué el 6 de agosto de 2006 y desde entonces (en estos más de 14 años) han salido cosas nuevas que hay que equiparar 😉 

    Y esto es todo por ahora… mañana más (u otro día más).

    Nos vemos.
    Guillermo

    #evolveVB #evolucionarVB

    P.S.
    Escrito en documentos de Google, intentando usar el dictado por voz, pero se ve que no me entiende tan bien o al menos no es mejor de lo que me esperaba… ya que parte de ese texto lo escribí usando Keep y dictándolo, pero como no había forma de añadir los puntos, coma, etc., he intentado con los documentos en la web usando Chrome.
    Seguiré intentándolo… como con C#, a base de probar y probar al final se consigue lo que uno quiere 😉

    P.S.2
    El código en Github:
    elGuille-info/escribir-codigo-en-csharp: Escribir código en C#. Guía para los developers de Visual Basic (github.com)

  • Generar clave SHA1 con el nombre y password del usuario

    Pues eso… en este post te explico cómo generar una clave (usando la clase SHA1CryptoServiceProvider) formada a partir de dos cadenas, normalmente el nombre del usuario y el password (o contraseña), de esta forma se genera una cadena única (de 40 caracteres) de forma que si alguien accede a ella no sabrá nunca cuales fueron las dos cadenas que la formaron (o eso es lo que espero que ocurra, jejeje). Además te mostraré también una función para evitar que el usuario introduzca caracteres no válidos y que pueden se usados para acceder maliciosamente a una base de datos.
    Por supuesto, te mostraré el código tanto para Visual Basic como para C#.

    El código que te mostraré (al menos el de generar la clave SHA1) está basado en este código publicado en mi sitio (usando .NET 1.1):
    El ejemplo de Visual Basic .NET:
    comprobar_usuario_usando_base_datos_vb2003
    El ejemplo de C#:
    comprobar_usuario_usando_base_datos_cs2003

    Generar una clave SHA1 usando SHA1CryptoServiceProvider

    Para acceder a esta clase necesitas una importación del espacio de nombres System.Security.Cryptography y como en el código usaremos un objeto StringBuilder y UTF8Encoding, también habrá que importar System.Text.

    En el código de ejemplo para usar los métodos definidos en la clase UtilSHA1 (que será en la que defino los dos métodos usados) se hará una comprobación de si tanto en el nombre como en el password usado hay caracteres no válidos, los caracteres que compruebo en el método ValidarTextoClave son los caracteres: ?*%’_ y

    De esa forma intentamos asegurarnos que no se pueda hacer un SQL injection, es decir, intentar acceder maliciosamente a la base de datos a la que presumiblemente se quiere acceder.

    Veamos primero el código que usa los dos métodos, el de comprobar la validez del texto introducido (ValidarTextoClave) y el de generar la clave SHA1 (GenerarClaveSHA1).

    Método Main con el código de prueba para usar los métodos de la clase

    Como te dije antes, se pide el nombre del usuario y el password a usar para generar la cadena con la clave SHA1 (que será de 40 caracteres convertidos a mayúsculas).

    Este sería el código del método Main para Visual Basic, con las importaciones de los espacios de nombres necesarios en todo el código de ejemplo:

    Option Strict On
    Option Infer On
    
    Imports System
    
    Imports System.Text
    Imports System.Security.Cryptography
    
    Module Program
        Sub Main(args As String())
            
            dim valido As Boolean
            dim usuario As String
            dim passw as String
    
            Do
                Console.Write("Escribe el nombre del usuario: ")
                usuario = Console.ReadLine()
                ' si el nombre del usuario tiene caracteres no permitidos, preguntar de nuevo
                valido = UtilSHA1.ValidarTextoClave(usuario)
                if not valido
                    Console.WriteLine("Nombre de usuario NO VÁLIDO.")
                end if
            Loop While Not valido
    
            Do
                Console.Write("Escribe la clave: ")
                passw = Console.ReadLine()
                ' si la clave tiene caracteres no permitidos, preguntar de nuevo
                valido = UtilSHA1.ValidarTextoClave(passw)
                if not valido
                    Console.WriteLine("La clave NO ES VÁLIDA.")
                end if
            Loop While Not valido
    
            ' generar la clave SHA1 y mostrarla
            dim claveSHA1 = UtilSHA1.GenerarClaveSHA1(usuario, passw)
            Console.WriteLine($"La clave SHA1 es: '{claveSHA1}'.")
                
        End Sub
    End Module
    

     

    Este sería el código del método Main para C#, con las importaciones (using) de los espacios de nombres usados en el código:

    using System;
    
    using System.Text;
    using System.Security.Cryptography;
    
    class Program
    {
        static void Main(string[] args)
        {
            bool valido;
            string usuario;
            string passw;
    
            do
            {
                Console.Write("Escribe el nombre del usuario: ");
                usuario = Console.ReadLine();
                // si el nombre del usuario tiene caracteres no permitidos, preguntar de nuevo
                valido = UtilSHA1.ValidarTextoClave(usuario);
                if (!valido)
                    Console.WriteLine("Nombre de usuario NO VÁLIDO.");
            }
            while (!valido);
    
            do
            {
                Console.Write("Escribe la clave: ");
                passw = Console.ReadLine();
                // si la clave tiene caracteres no permitidos, preguntar de nuevo
                valido = UtilSHA1.ValidarTextoClave(passw);
                if (!valido)
                    Console.WriteLine("La clave NO ES VÁLIDA.");
            }
            while (!valido);
    
            // generar la clave SHA1 y mostrarla
            var claveSHA1 = UtilSHA1.GenerarClaveSHA1(usuario, passw);
            Console.WriteLine($"La clave SHA1 es: '{claveSHA1}'.");
        }
    }
    

     

    La clase UtilSHA1 con los métodos para comprobar la validez del texto y generar la clave

    A continuación te muestro el código del método para validar el texto del nombre del usuario y el password o contraseña para que no contenga caracteres no deseados.

    Para Visual Basic:

    ''' <summary>
    ''' Validar caracteres en la clave.
    ''' No se aceptan ?*%'_ ni --
    ''' </summary>
    Public Shared Function ValidarTextoClave(laClave As String) As Boolean
        Dim sNoVale As String = "?*%'_"
    
        laClave = laClave.Trim()
    
        If laClave.IndexOf("--") > -1 Then
            Return False
        End If
        If laClave.IndexOfAny(sNoVale.ToCharArray) > -1 Then
            Return False
        End If
    
        Return True
    End Function
    

     

    Para C#:

    /// <summary>
    /// Validar caracteres en la clave.
    /// No se aceptan ?*%'_ ni --
    /// </summary>
    public static bool ValidarTextoClave(string laClave)
    {
        string sNoVale = "?*%'_";
    
        laClave = laClave.Trim();
    
        if (laClave.IndexOf("--") > -1)
            return false;
        if (laClave.IndexOfAny(sNoVale.ToCharArray()) > -1)
            return false;
    
        return true;
    }
    

     

    Y ahora el código con la definición del método GenerarClaveSHA1 en el que indicaremos dos cadenas: el nombre del usuario y el password y a partir de la concatenación de ambas generar el valor SHA1 producido por el método ComputeHash que en realidad devuelve un array de tipo Byte, el cual convertimos en valores hexadecimales (con dos cifras por valor) con idea de que se genere la cadena deseada de 40 caracteres en total, que finalmente convertimos en mayúsculas, pero que bien puedes dejarlo en minúsculas si así te parece mejor.

    El código para Visual Basic:

    ''' <summary>
    ''' Generar una clave SHA1 para guardarla en lugar del password,
    ''' de esa forma no se podrá saber la clave.
    ''' La longitud es de 40 caracteres.
    ''' </summary>
    ''' <remarks>
    ''' Crear una clave SHA1 como la generada por:
    ''' FormsAuthentication.HashPasswordForStoringInConfigFile
    ''' Basado en el ejemplo de mi sitio:
    ''' http://www.elguille.info/NET/dotnet/comprobar_usuario_usando_base_datos_vb2003.htm
    ''' </remarks>
    Public Shared Function GenerarClaveSHA1(nick As String, clave As String) As String
        ' Crear una clave SHA1 como la generada por 
        ' FormsAuthentication.HashPasswordForStoringInConfigFile
        ' Adaptada del ejemplo de la ayuda en la descripción de SHA1 (Clase)
        Dim enc As New UTF8Encoding
        ' Por si el usuario (nick) es nulo
        If String.IsNullOrWhiteSpace(nick) Then
            nick = ""
        Else
            nick = nick.ToLower
        End If
        Dim data() As Byte = enc.GetBytes(nick & clave)
        Dim result() As Byte
    
        Dim sha As New SHA1CryptoServiceProvider
        ' This is one implementation of the abstract class SHA1.
        result = sha.ComputeHash(data)
    
        ' Convertir los valores en hexadecimal
        ' cuando tiene una cifra hay que rellenarlo con cero
        ' para que siempre ocupen dos dígitos.
        Dim sb As New StringBuilder
        For i As Integer = 0 To result.Length - 1
            If result(i) < 16 Then
                sb.Append("0")
            End If
            sb.Append(result(i).ToString("x"))
        Next
    
        Return sb.ToString.ToUpper
    End Function
    

     

    El código para C#:

    /// <summary>
    /// Generar una clave SHA1 para guardarla en lugar del password,
    /// de esa forma no se podrá saber la clave.
    /// La longitud es de 40 caracteres.
    /// </summary>
    /// <remarks>
    /// Crear una clave SHA1 como la generada por:
    /// FormsAuthentication.HashPasswordForStoringInConfigFile
    /// Basado en el ejemplo de mi sitio:
    /// http://www.elguille.info/NET/dotnet/comprobar_usuario_usando_base_datos_cs2003.htm
    /// </remarks>
    public static string GenerarClaveSHA1(string nick, string clave)
    {
        // Crear una clave SHA1 como la generada por 
        // FormsAuthentication.HashPasswordForStoringInConfigFile
        // Adaptada del ejemplo de la ayuda en la descripción de SHA1 (Clase)
        UTF8Encoding enc = new UTF8Encoding();
        // Por si el usuario (nick) es nulo
        if (string.IsNullOrWhiteSpace(nick))
            nick = "";
        else
            nick = nick.ToLower();
        byte[] data = enc.GetBytes(nick + clave);
        byte[] result;
    
        SHA1CryptoServiceProvider sha = new SHA1CryptoServiceProvider();
        // This is one implementation of the abstract class SHA1.
        result = sha.ComputeHash(data);
    
        // Convertir los valores en hexadecimal
        // cuando tiene una cifra hay que rellenarlo con cero
        // para que siempre ocupen dos dígitos.
        StringBuilder sb = new StringBuilder();
        for (int i = 0; i < result.Length; i++)
        {
            if (result[i] < 16)
                sb.Append("0");
            sb.Append(result[i].ToString("x"));
        }
    
        return sb.ToString().ToUpper();
    }
    

     

    Nota:
    El código final del método GenerarClaveSHA1 se puede simplificar para que use dos caracteres hexadecimales sin necesidad de la comparación de si el valor es menor de 16.
    El código te lo muestro en el repositorio de github por si quieres intentarlo por tu cuenta 😉

     

    Nota importante:
    Comentarte que la generación de la clave SHA1 distingue entre mayúsculas y minúsculas, es decir, si al generar la clave SHA1 usaste Guillermo como usuario (o nick) si vuelves a generarla con el nombre en minúsculas (guillermo) el valor generado será diferente.
    Esto mismo es aplicable a la contraseña o password.

     

    El código completo con los proyectos para usar con .NET 5.0 (tanto con dotnet como con Visual Studio Code o con Visual Studio 2019 v16.8) está publicado en github:
    Generar clave SHA1 con el nombre y password del usuario.

     

    Y esto es todo… espero que te sea de utilidad… ya sabes que esa es la idea… y si te parece bien (y puedes) no estaría de más que dejaras una propina usando el enlace de PayPal 😉
    Gracias.

     

    Nos vemos.
    Guillermo