elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


  Mostrar Mensajes
Páginas: 1 ... 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21] 22 23 24 25 26 27 28 29 30 31 32
201  Informática / Electrónica / Re: Bajar de 5V a 4.5V en: 1 Marzo 2016, 19:27 pm
Antes de nada, gracias por las respuestas

No creo que haya problema en ponerlo a 5V, de lo que tienes que preocuparte es de limitar la corriente. Para conseguir que circulen 20 mA necesitarás una resistencia de aproximadamente:

Bueno, lo hice, conectarlo a 5V y el LED se fundió.  He comprado otro igual, y claro ahora quiero ponerle la resistencia para evitar que se funda. Pero debo añadir que no lo alimenté desde el USB si no desde un transformador a 5V, y no se a cuantos mA  :P
202  Informática / Electrónica / Bajar de 5V a 4.5V en: 1 Marzo 2016, 17:00 pm
Hola

Antes de nada, quiero decir que no tengo conocimientos de electrónica.

Por lo que he sabido un USB tiene una salida de unos 5V a creo que 100mA (esto no tengo claro si es mas o menos).

Tengo un LED de 4.5V que quiero alimentar con el USB pero necesito bajar los 5V a 4.5V

No se si este cálculo sería correcto

R= V/I ->  R=0.5V / 0.1A -> R= 5 ohm

                 __+___---5ohm---___
USB ____<___-_______________> LED

Gracias

203  Programación / Scripting / Re: Comando de consola para instalar programas secuencialmente en: 1 Marzo 2016, 13:16 pm
Bueno, me respondo a mi mismo...

START /wait Setup1.exe
START /wait Setup2.exe
START /wait Setup3.exe
204  Programación / Scripting / Comando de consola para instalar programas secuencialmente en: 1 Marzo 2016, 11:38 am
Hola

Quiero crear un archivo CMD de modo que al ejecutarlo, ejecute varios programas de instalación A, B, C, etc, y espere, a que termine un programa de instalación antes de iniciar el siguiente.

No se esto si esto podrá hacer desde la consola.

Gracias

205  Programación / .NET (C#, VB.NET, ASP) / Re: Imitar ordenador de los cines de antes en cuanto al sonido en: 1 Marzo 2016, 11:22 am
Solo vengo a aclarar una duda que ha surgido en este post a la cual no se le ha dado una respuesta muy correcta.

Gracias Elektro por la aclaración.


Como he dicho, se usaba antiguamente. Me cito a mi mismo:
Código:
En cuanto el uso de GOTO, antiguamente en Basic se usaba muchísimo, y en tal caso no veo porqué no.  Yo tuve un ordenador Sharp que funcionaba con Basic y un Commodore64 y era bastante habitual. 

Con "y en tal caso no veo porqué no"  quiero decir que para el sencillo ejemplo que he puesto y además emulando la consola retro, creo que se puede utilizar. Vamos que no creo que vaya a explotar el ordenador  :xD

Lo que interesaba es crear el efecto retro de sonido que pedía Meta (en el que el GOTO no interviene).

Solo quería aclarar eso.

Saludos.
206  Programación / .NET (C#, VB.NET, ASP) / Re: Imitar ordenador de los cines de antes en cuanto al sonido en: 1 Marzo 2016, 09:44 am
En en ejemplo con TimeSpan se me olvidó eliminar la línea 28 :-\

Ya lo he quitado

Código
  1.   //System.Threading.Thread.Sleep(750);

Creo que no comentaré nada más jeje

 saludos  ;)
207  Programación / .NET (C#, VB.NET, ASP) / Re: Imitar ordenador de los cines de antes en cuanto al sonido en: 1 Marzo 2016, 07:34 am
Hola Meta

Código:
El string.Format. 
¿Es necesario usar eso así en vez la consola Console.WreiteLine directamente?

Hombre, necesario no es, pero simplifica bastante la labor, pues {0} en este caso representa Environment.NewLine, y no tengo que estar todo el rato escribiendo Environment.NewLine.

Ejemplo:
Código:
Cadena = string.Format("{0} {1} {0} {2} ", "#0", "#1" ,"#2");,
{0} Representa "#0"
{1} Representa "#1"
{2} Representa "#2"

"Cadena"  devuelve:
Código:
#0 #1 #0 #2

Por cierto, como ves GeShi para C# no acepta carácteres especiales ASCII como este █ = (Alt + 219). Los cuales te serán muy útiles para conseguir el efecto retro, ya que se usaban estos marcos ╔═════════════════════╗ en lugar de las ventanas o cuadros de mensajes actuales.

Carácteres ASCII




Mientras experimentaba con WriteLine para obtener el valor string de lo escrito en consola, es decir pasarlo a una variable string, he querido crear el efecto de highlightb del texto pero no lo consigo. A ver si alguien sabe como...



Podría ser algo así pero es un palo:

Código
  1.       string NL = Environment.NewLine;
  2.            string T1 = "Adt Configuration";
  3.            string T2= "DISK SLOT";
  4.            string T3 = "DISK SLOT 2";
  5.            T1 = T1.ToUpper();
  6.     Console.BackgroundColor=ConsoleColor.Green;
  7.     Console.ForegroundColor = ConsoleColor.Black;
  8.     Console.Write("{1} {0}", NL, T1);
  9.     Console.BackgroundColor = ConsoleColor.Black;
  10.     Console.ForegroundColor = ConsoleColor.Green;
  11.     Console.Write("{0}", NL);
  12.  
  13.     Console.Write("{0}  ", T2);
  14.     Console.BackgroundColor = ConsoleColor.Green;
  15.     Console.ForegroundColor = ConsoleColor.Black;
  16.     Console.Write("{0}  ", "1".PadLeft(5));
208  Programación / .NET (C#, VB.NET, ASP) / Re: Imitar ordenador de los cines de antes en cuanto al sonido en: 29 Febrero 2016, 17:15 pm
Probando el último código en C#, lo primero me da errores por todas partes, y nunca había visto usar goto que se aconseja no usarlo en C# ni en Visual Basic para evitar malos hábitos.
Saludos.

 :P Normal, ni siquiera lo he testeado jaja. Simplemente he usado una conversión online y luego lo pegué.

De todos modos  básicamente lo que interesa es la función Mecanografiar para hacer los efectos de sonido.

En cuanto el uso de GOTO, antiguamente en Basic se usaba muchísimo, y en tal caso no veo porqué no.  Yo tuve un ordenador Sharp que funcionaba con Basic y un Commodore64 y era bastante habitual.


Saludos



Pues, así es. En C# no funciona  :-[

Para empezar C# no permite esto (y supongo que tampoco en C++):
Código:
  System.Threading.Thread.Sleep(0.09 * 1000);

Es decir, usar un valor temporal inferior a un segundo de este modo (0.09 * 1000). En lugar de eso simplemente poner, por ejemplo:

Código:
  System.Threading.Thread.Sleep(100);

Esto es imprescindible para conseguir el efecto  de tecla (tac, tac, tac,...) pues, sólo hace un tic similar a una tecla, sin determinarse claramente que sonido suena.

[CORREGIDO EN C#]

Código:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication1
{
    class Program
    {
public static void Main()
{
Console.WindowWidth = 80;
Console.WindowHeight = 43;
Console.Title = "Retro-Consola";
Console.BackgroundColor = ConsoleColor.Black;
// Fondo pantalla blanco.
Console.Clear();
// Limpiar pantalla.
Console.ForegroundColor = ConsoleColor.Green;
// Color texto azul.
Console.CursorVisible = false;
j1:;
string Cadena = string.Format("{0}{1}{0}{0}{2}", Environment.NewLine, "█ POR FAVOR, INTRODUZCA EL CÓDIGO DE ACCESO █", "CÓDIGO DE ACCESO:_ ");

Mecanografiar(Cadena);
        string Entrada;
Entrada = Console.ReadLine();

if (Entrada == "12345") {
Cadena = string.Format("{0}{1}{0}{0}{2}{0}{3}{0}{4}", Environment.NewLine, "*** CÓDIGO DE ACCESO ACEPTADO ***", "████████████████████████████████████████", "█     BIENVENIDO DOCTOR FRANKESTEIN    █", "████████████████████████████████████████");
Mecanografiar(Cadena);
} else {
Cadena = string.Format("{0}{1}{0}", Environment.NewLine, "*** CÓDIGO DE ACCESO DENEGADO ***");
Mecanografiar(Cadena);
            goto j1;
}
Console.ReadKey();
}

        public static void Mecanografiar(string Cadena)
        {
            foreach (char Letra in Cadena)
            {
              
                if ((Letra) == Convert.ToChar(ConsoleKey.Enter))

                {
                    System.Threading.Thread.Sleep(750);
                    //Espera 0.75 segundos antes de hacer el salto de línea
                    Console.Beep(600, 100);
                    // beep de salto de línea
                }
                else
                {
                    System.Threading.Thread.Sleep(90);
                    Console.Write(Letra);
                    // Hacer sonido solo cuando el caracter sea distinto de espacio
                    if ((Letra) != Convert.ToChar(ConsoleKey.Spacebar))
                    {
                        Console.Beep(500, 9);
                    }
                }
            }
        }


       }

     }



La función para crear el efecto:
Código
  1.  
  2. public static void Mecanografiar(string Cadena)
  3.        {
  4.            foreach (char Letra in Cadena)
  5.            {
  6.  
  7.                if ((Letra) == Convert.ToChar(ConsoleKey.Enter))
  8.                {
  9.  
  10.                    System.Threading.Thread.Sleep(750);
  11.                    //Espera 0.75 segundos antes de hacer el salto de línea
  12.                    Console.Beep(600, 100);
  13.                    // beep de salto de línea
  14.                }
  15.                else
  16.                {
  17.                    System.Threading.Thread.Sleep(90);
  18.                    Console.Write(Letra);
  19.                    // Hacer sonido solo cuando el caracter sea distinto de espacio
  20.                    if ((Letra) != Convert.ToChar(ConsoleKey.Spacebar))
  21.                    {
  22.                        Console.Beep(500, 9);
  23.                    }
  24.                }
  25.            }
  26.        }
  27.  
  28.  

Para modificar la velocidad cambia el valor de 90 a menos o más según prefieras:

Código:
System.Threading.Thread.Sleep(90)

En un principio puse 130, pero es demasiado lento. Creo que 90 está bien.

Saludos



Puede usarse TimeSpan en lugar de usarse Sleep del siguiente modo:

Código
  1.     TimeSpan interval = new TimeSpan(0, 0, 0, 0, 90);
  2.                    Thread.Sleep(interval);

Ejemplo:

Código
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using System.Threading;
  6. namespace ConsoleApplication2
  7. {
  8.    class Program
  9.    {
  10.        static void Main(string[] args)
  11.        {
  12.            string cadena = "Ejemplo de como usar TimeSpan..." +
  13.            Environment.NewLine  +
  14.            "... En lugar de usar Speep";
  15.  
  16.            Mecanografiar(cadena);
  17.  
  18.        }
  19.        public static void Mecanografiar(string Cadena)
  20.        {
  21.            foreach (char Letra in Cadena)
  22.            {
  23.  
  24.                if ((Letra) == Convert.ToChar(ConsoleKey.Enter))
  25.                {
  26.                    TimeSpan interval = new TimeSpan(0, 0, 0, 0, 500);
  27.                    Thread.Sleep(interval);
  28.                    //System.Threading.Thread.Sleep(750);
  29.  
  30.                    //Espera 0.75 segundos antes de hacer el salto de línea
  31.                    Console.Beep(600, 100);
  32.                    // beep de salto de línea
  33.                }
  34.                else
  35.                {
  36.                    TimeSpan interval = new TimeSpan(0, 0, 0, 0, 90);
  37.                    Thread.Sleep(interval);
  38.                   // System.Threading.Thread.Sleep(90);
  39.                    Console.Write(Letra);
  40.                    // Hacer sonido solo cuando el caracter sea distinto de espacio
  41.                    if ((Letra) != Convert.ToChar(ConsoleKey.Spacebar))
  42.                    {
  43.                        Console.Beep(500, 9);
  44.                    }
  45.                }
  46.            }
  47.        }
  48.  
  49.  
  50.  
  51.    }
  52. }
209  Programación / .NET (C#, VB.NET, ASP) / Re: Normalizar URL (pasar Url de UTF8 a Unicoce) en: 23 Febrero 2016, 17:35 pm
Hola de nuevo

Si jaja,  pero al final no lo instalé y como es lógico no tengo esa funcionalidad disponible, así como supongo muchos usuarios.

Si que está en mi PC con W7 de 64bits con vb2012 de 64bits y la versión que estoy usando aquí es  vb2010.

De todos modos tampoco es tanto código y puede ser de utilidad y ejemplo.

Sl2s.
 
210  Programación / .NET (C#, VB.NET, ASP) / Normalizar URL (pasar Url de UTF8 a Unicoce) en: 23 Febrero 2016, 16:26 pm
Hola

He conseguido normalizar una URL de esas con símbolos % y códigos hexadecimales. Por ejemplo:

Código:
"https%3A%2F%2Fes.noticias.locas.com%2Fdescubren-un-jupitiano-en-j%C3%BApiter-666999.html"

(no te molestes en ir que no existe, es inventado)

Agradezco la ayuda al foro y en especial a Elektro que me ha resuelto el tema de pasar un código UTF8 a Unicode.


Código
  1. Option Strict Off
  2. Imports System.Text.RegularExpressions
  3.  
  4. Public Class Form1
  5.  
  6.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.        Dim strUrl As String = ("https%3A%2F%2Fes.noticias.locas.com%2Fdescubren-un-ni%C3%B1o-jupitiano-en-j%C3%BApiter-666999.html")        'Enlace
  8.        MsgBox(NormalizarURL(strUrl))
  9.    End Sub
  10.  
  11.    Public Function NormalizarURL(ByVal strUrl as String) As String
  12.        'strUrl = strUrl.Replace("%3A%2F%2F", "://")
  13.        Dim PatternUTF8_1 As String = "(%..%..?)"                                                       'Expresiones regular
  14.        Dim PatternUTF8_2 As String = "(%..?)"                                                          'Expresiones regulares
  15.        Dim MyRegexUTF8_1 As New Regex(PatternUTF8_1, RegexOptions.IgnoreCase)                          'Regex para doble PatternUTF8_1
  16.        Dim MyRegexUTF8_2 As New Regex(PatternUTF8_2, RegexOptions.IgnoreCase)                          'Regex para doble PatternUTF8_2
  17.        Dim MyMatchUTF8_1 As Match = MyRegexUTF8_1.Match(CStr(strUrl))
  18.        Dim MyMatchUTF8_2 As Match = MyRegexUTF8_2.Match(CStr(strUrl))
  19.        While MyMatchUTF8_1.Success
  20.            Dim UTFChar As String = MyMatchUTF8_1.Groups(0).Value                                       'Obtiene el primer valor de cada coincidencia          
  21.            Dim HexChar1 As Byte = CType(Convert.ToInt32(UTFChar.Substring(1, 2), 16), Byte)                'Obtiene el valor entero del primer valor hexadecimal obtenido del código utf-8
  22.            Dim HexChar2 As Byte = CType(Convert.ToInt32(UTFChar.Substring(4, 2), 16), Byte)                    'Obtiene el valor entero del segundo valor hexadecimal obtenido del código utf-8
  23.            '//Convierte carácter hexadecimal UTF-8 a UNICODE por ejemplo "C3 BA" a "ú"
  24.            Dim CharUnicode As String = System.Text.Encoding.UTF8.GetString(New Byte() {HexChar1, HexChar2})
  25.            strUrl = strUrl.Replace(UTFChar, CharUnicode)                                                      'Reemplaza el carácter hexadecimal UTF-8 por Unicode
  26.            MyMatchUTF8_1 = MyMatchUTF8_1.NextMatch()                                                   'Continúe el bucle hasta la siguiente coincidencia.
  27.        End While
  28.        While MyMatchUTF8_2.Success
  29.            Dim UTFChar As String = MyMatchUTF8_2.Groups(0).Value
  30.            '//Convierte y remplaza un carácter hexadecimal a Unicode por ejemplo "2F" a "/"
  31.            strUrl = strUrl.Replace(UTFChar, Convert.ToChar(Convert.ToInt32(UTFChar.Substring(1, 2), 16)))
  32.            MyMatchUTF8_2 = MyMatchUTF8_2.NextMatch()                                                       'Continúe el bucle hasta la siguiente coincidencia.
  33.        End While
  34.        Return CStr(strUrl)
  35.    End Function
  36. End Class


Saludos

Páginas: 1 ... 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21] 22 23 24 25 26 27 28 29 30 31 32
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines