Mensajes

[leño]

A mi me parece una "noticia" muy sensacionalista, cómo para tomarla en serio, ¿algún ciéntifico lo hará?.

Por cierto, ¿cómo es que la roca es del 2010, y lo descubren ahora?, ¿no será que alguien que pasaba por allí en el desierto de Nevada se haya fumado algún leño, o también el científico que analizó la roca, y luego unos años más tarde han vuelto a analizar esa roca y han hecho el "descubrimiento" (de colillas de marihuana)?...

Por un lado me imagino que en otros planetas habrá vegetación, plantas, polen (y POLEN), etc, pero no se... es que no le veo sentido, para mi esto no es nada serio, desde la forma en publicar esta noticia (la fuente de la noticia) hasta la noticia en si misma.

Saludos

[offset]

Da error

Si un código te da error, al menos especifica que error, el mensaje de error, y donde se produce, se te ha dicho ya en varias ocasiones en otros posts.

Dicho esto, el error que tienes es obvio, los valores hexadecimales en .Net no se manejan cómo strings, el datatype que espera el parámetro "offset" del método "FileStream.Seek()" es un entero (Int64/Long), por ende, debes usar un valor de ese tipo.

De todas formas te comento que la manera de utilizar valores hexadecimales es escribiendo enteros literales (menos aquellos métodos que acepten un formato de String hexadecimal).

En VB.Net:

Código [Seleccionar] Expandir

Dim value as Integer = &H101C0

En C#:

Código [Seleccionar] Expandir

int value = 0x101c0;

➢ FileStream.Seek Method - MSDN
➢ Convert.ToInt64(String, Int32) Method - MSDN

➢ Hexadecimal literals (C#) - MSDN
➢ Hexadecimal literals (Visual Basic) - MSDN

Saludos

¿Cual es la pregunta en cuestión?, imagino que en Google podrás encontrar las especificaciones del formato SMC aun hoy en día, y sabiendo eso sería suficiente para localizar e identificar toda la información que necesitas.

Si la pregunta es "¿cómo obtener el nombre?":

Código (vbnet) [Seleccionar] Expandir

Public Function GetRomName(ByVal filepath As String) As String

   Dim buffer As Byte() = Enumerable.Repeat(New Byte, capacidadDelNombre).ToArray

   Using fs As New FileStream(filepath, FileMode.Open)

       fs.Seek(offset, SeekOrigin.Begin)
       fs.Read(buffer, 0, capacidadDelNombre)
       fs.Close()

   End Using

   Return String.Join("", From b As Byte In buffer Select Convert.ToChar(b)).TrimEnd({" "c})

End Function

Saludos!

[Demo Form]

¿Puedes pasarme el proyecto completo?

Solo tienes que crear un nuevo proyecto y reemplazar la Class principal (Form1), por esta class, que ya genera los controles del form:

• Demo Form
VB.Net: http://pastebin.com/BjzEhPdd

Saludos.

[Console.Write]

Es uno de los overloads del método Console.Write, específicamente este:
➢ Console.Write Method (String, Object) - MSDN

El primer parámetro indica el formato específico de texto, y el segundo parámetro los valores que usa el formato.

Lo que hace es convertir el valor de los objetos a cadenas basadas en los formatos especificados, y los inserta en otra cadena.

Para entenderlo mejor debes leer esta referencia:
➢ String.Format Method - MSDN

Los objetos que deben ser insertados en la cadena de texto con formato, se identifican por la siguiente sintaxis, escribiendo el índice del objeto entre dos brackets: "{0}", donde el cero cómo he dicho es el índice del objeto.

Ejemplos:

Esto generaría el string "Message: Hello World!"

Código (csharp) [Seleccionar] Expandir

Console.WriteLine(format: "Message: {0}", arg0: "Hello World!");

Esto generaría el string "Uno+Uno=Dos":

Código (csharp) [Seleccionar] Expandir

string str = string.Format("{0}+{0}={1}", "Uno", "Dos");

En resumen, es una manera elegante y eficiente para construir una cadena de texto con un formato específico.

Saludos.

Cómo ya te han epxlicado, no se hacen tareas, pero ya que te han dado una solución...

Puedes utilizar las extensiones de String para la manipulación de una cadena de texto, concretamente la función substring para substraer parte de una cadena de texto, y las funciones IndexOf y LastIndexOf para determinar los índices o límites del primer y último caracter que substraer:

Código (csharp) [Seleccionar] Expandir

string str = "Hola, ¿cómo estás?.";

str = str.Substring(0, str.TrimEnd(' ').LastIndexOf(' ')); // "Hola, ¿cómo"

Saludos.

El tema ha sido movido a Programación General.

http://foro.elhacker.net/index.php?topic=436448.0

[Settings]

Hasta ahí bien, pero viene el problema. Los ordenadores comparten el mismo programa pero no las mismas restricciones, de forma que copiando los valores de registro de un ordenador con el programa desactivado y pegándolos en el ordenador bloqueado consiguen desactivar la aplicación...

Si el problema es ese entonces la primera solución que te ofrecí de usar Settings no te serviría, ya que el archivo de configuración sigue esta estructura, donde el hash sería el mismo en cada PC:

Código [Seleccionar] Expandir

c:\Users\<username>\AppData\Local o Roaming\<companyname>\<appdomainname>_<eid>_<hash>\<verison>

Ejemplo real:

Código [Seleccionar] Expandir

C:\Users\Administrador\AppData\Local\ElektroStudios\MasterMusik_Reports.exe_Url_q2a441mf5bc330sftjmvcdv30vohiv0o\2.0.0.0\user.config

De todas formas para otras cosas te puede interesar, aquí puedes conocer más detalles de su arquitectura, aunque es un artículo bastante antiguo:
➢ Using My.Settings in Visual Basic 2005



A ver si lo he entendido bien, sino corrígeme.

Tu tienes algo PARECIDO a este ejemplo, en el código fuente:

Código (vbnet) [Seleccionar] Expandir

Dim value As Integer = 0

Select Case value

   Case Is = 0
       ' Activar aplicaciones.

   Case Is = 1
       ' Denegar aplicaciones.

   Case Else
       ' ...

End Select
(muy resumido)

¿Pero cómo decides si Value debe ser 0 o 1 al distribuirr y ejecutar el programa?, es decir, si el programa lo ejecutase yo en mi PC, ¿cómo se decide si se deben activar esas cosas que mencionas?, ¿se decide por un número?, ¿pero entonces cómo se decide el número que yo debo tener, no era aleatorio?, que lio, estoy algo espeso y no lo llego a pillar del todo.

De todas formas, ¿podrías mantener una conexión con los PCs de esas aulas? (mediante sockets), en ese caso lo que podrías hacer es administrar las activaciones de forma remota basándote en el HWID (Hardware ID) de cada equipo conectado,
de lo contrario, y si tienes acceso físico a esas aulas, entonces también puedes obtener manualmente el HWID de cada PC ejecutando un programa específico en ese PC que devuelva el HWID, es decir, obtienes los HWID de cada PC, luego creas una lista/array con los HWID predefinidos en tu código fuente y así administras las activaciones al distribuir la app, simplemente comprobando si el HWID dle equipo actual corresponde con algún HWID de la lista que compilaste.

Te dejo unas funciones que tal vez te podrían servir para pensar en algún enfoque, estas funciones sirven para obtener el identificador del procesador y de la placa base de un PC, y para cifrar un string mediante el algoritmo AES:

Código (vbnet) [Seleccionar] Expandir

   ''' <remarks>
   ''' *****************************************************************
   ''' Title : Get CPU Identifier
   ''' Author: Elektro
   ''' Date  : 03-June-2015
   '''
   ''' Required Namespaces:
   ''' <see cref="System.Management"/>
   '''
   ''' Usage Example:
   ''' Dim Value as String = GetCpuId()
   ''' *****************************************************************
   ''' </remarks>
   ''' <summary>
   ''' Gets the motherboard ID of the current computer machine.
   ''' </summary>
   ''' <returns>The motherboard ID.</returns>
   Public Shared Function GetCpuId() As String

       Using wmi As New ManagementObjectSearcher("select ProcessorID from Win32_Processor")

           Using query As ManagementObjectCollection = wmi.Get

               Return DirectCast(query(0), ManagementObject).Properties("ProcessorID").Value.ToString

           End Using

       End Using

   End Function

Código (vbnet) [Seleccionar] Expandir


   ''' <remarks>
   ''' *****************************************************************
   ''' Title : Get Motherboard Identifier
   ''' Author: Elektro
   ''' Date  : 03-June-2015
   '''
   ''' Required Namespaces:
   ''' <see cref="System.Management"/>
   '''
   ''' Usage Example:
   ''' MsgBox(GetMotherboardId)
   ''' *****************************************************************
   ''' </remarks>
   ''' <summary>
   ''' Gets the motherboard ID of the current computer machine.
   ''' </summary>
   ''' <returns>The motherboard ID.</returns>
   Public Shared Function GetMotherboardId() As String

       Using wmi As New ManagementObjectSearcher("select SerialNumber from Win32_BaseBoard")

           Using query As ManagementObjectCollection = wmi.Get

               Return DirectCast(query(0), ManagementObject).Properties("SerialNumber").Value.ToString

           End Using

       End Using

   End Function

Código (vbnet) [Seleccionar] Expandir

   ''' <remarks>
   ''' *****************************************************************
   ''' Title : AES Encryptor
   ''' Author: Elektro
   ''' Date  : 03-June-2015
   '''
   ''' Required Namespaces:
   ''' <see cref="System.IO"/>
   ''' <see cref="System.Security.Cryptography"/>
   ''' <see cref="System.Text"/>
   '''
   ''' Usage Example:
   ''' Dim encrypted As String = AESEncryptor("Hello World!", key:="My Encryption Key", size:=128)
   ''' *****************************************************************
   ''' </remarks>
   ''' <summary>
   ''' Encrypts an string using AES algorithm.
   ''' </summary>
   ''' <param name="str">The string to encrypt.</param>
   ''' <param name="key">The encryption key.</param>
   ''' <param name="size">The key size. 128, 192 or 256 bits.</param>
   ''' <param name="salt">The key salt.</param>
   ''' <param name="mode">The encryption mode.</param>
   ''' <returns>The encrypted string.</returns>
   Public Function AESEncryptor(ByVal str As String,
                                ByVal key As String,
                                ByVal size As Integer,
                                Optional ByVal salt As Byte() = Nothing,
                                Optional ByVal mode As CipherMode = CipherMode.ECB) As String

       If (size <> 128) AndAlso (size <> 192) AndAlso (size <> 256) Then
           Throw New ArgumentException(message:="Key size for this algorithm should be 128, 192 or 256.", paramName:="keySize")

       ElseIf (salt IsNot Nothing) AndAlso (salt.Length < 8) Then
           Throw New ArgumentException(message:="Salt should contain at least 8 bytes.", paramName:="salt")

       ElseIf salt Is Nothing Then
           salt = {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64}

       End If

       Using crypto As Aes = Aes.Create()

           Dim pdb As Rfc2898DeriveBytes = New Rfc2898DeriveBytes(key, salt:=salt)

           crypto.KeySize = size ' 128, 192 or 256 Bits.
           crypto.Key = pdb.GetBytes(cb:=(size \ 8)) ' 16, 24, or 32 or Bytes (128, 192 or 256 Bits).
           crypto.IV = pdb.GetBytes(cb:=16) ' 16 Bytes (128 Bits).
           crypto.Mode = mode

           Using ms As New MemoryStream()

               Using cs As New CryptoStream(ms, crypto.CreateEncryptor(), CryptoStreamMode.Write)

                   Dim strBytes As Byte() = Encoding.Unicode.GetBytes(str)
                   cs.Write(strBytes, 0, strBytes.Length)
                   cs.Close()

               End Using

               Return Convert.ToBase64String(ms.ToArray)

           End Using

       End Using

   End Function

   ''' <remarks>
   ''' *****************************************************************
   ''' Title : AES Decryptor
   ''' Author: Elektro
   ''' Date  : 03-June-2015
   '''
   ''' Required Namespaces:
   ''' <see cref="System.IO"/>
   ''' <see cref="System.Security.Cryptography"/>
   ''' <see cref="System.Text"/>
   '''
   ''' Usage Example:
   ''' Dim decrypted As String = AESDecryptor("JRVQnb2q7f3BtIDaq5Tdcqu2+2GYGEMLyQrBT9mMjgw=", key:="My Encryption Key", size:=128)
   ''' *****************************************************************
   ''' </remarks>
   ''' <summary>
   ''' Decrypts a previously encrypted string using AES algorithm.
   ''' </summary>
   ''' <param name="str">The encrypted string to decrypt.</param>
   ''' <param name="key">The key used for encryption.</param>
   ''' <param name="size">The key size used for encryption. 128, 192 or 256 bits.</param>
   ''' <param name="salt">The key salt used for encryption.</param>
   ''' <param name="mode">The encryption mode.</param>
   ''' <returns>The decrypted string.</returns>
   Public Function AESDecryptor(ByVal str As String,
                                ByVal key As String,
                                ByVal size As Integer,
                                Optional ByVal salt As Byte() = Nothing,
                                Optional ByVal mode As CipherMode = CipherMode.ECB) As String

       If (size <> 128) AndAlso (size <> 192) AndAlso (size <> 256) Then
           Throw New ArgumentException(message:="Key size for this algorithm should be 128, 192 or 256.", paramName:="keySize")

       ElseIf (salt IsNot Nothing) AndAlso (salt.Length < 8) Then
           Throw New ArgumentException(message:="Salt should contain at least 8 bytes.", paramName:="salt")

       ElseIf salt Is Nothing Then
           salt = {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64}

       End If

       Using crypto As Aes = Aes.Create()

           Dim pdb As New Rfc2898DeriveBytes(key, salt)

           crypto.KeySize = size ' 128, 192 or 256 Bits.
           crypto.Key = pdb.GetBytes(cb:=(size \ 8)) ' 16, 24, or 32 or Bytes (128, 192 or 256 Bits).
           crypto.IV = pdb.GetBytes(cb:=16) ' 16 Bytes (128 Bits).
           crypto.Mode = mode

           Using ms As New MemoryStream()

               Using cs As New CryptoStream(ms, crypto.CreateDecryptor(), CryptoStreamMode.Write)

                   Dim cipherBytes As Byte() = Convert.FromBase64String(str)
                   cs.Write(cipherBytes, 0, cipherBytes.Length)
                   cs.Close()

               End Using

               Return Encoding.Unicode.GetString(ms.ToArray)

           End Using

       End Using

   End Function

Saludos

[Microsoft Visual Studio]

Yo he llevado muchos avatares en todos estos años, algunos absurdos cómo memes o gifs, pero ahora me he acostumbrado a llevar este, que identifica una de mis aficiones o pasiones, es el logo de Microsoft Visual Studio:



Aunque no lo parezca, no es un antifáz, es la etapa moderna/actual del logo que han tenido siempre, aunque publicamente tampoco se sabe mucho cual es el significado de ese logo, se dice que está relacionado con el símbolo de infinito, aquí pueden ver las anteriores fases del logo:






Saludos

En el video llevan todos el gorrito ese, pero ninguno tiene guantes y por ahí pasan 200 manos... me ha dado bastante asco.

Aunque no se si lo de llevar guantes es obligatorio auqí en España en este tipo de "fabricas", pero desde el procesado de la carne hasta que llega a tu boca todo es anti-higiénico, por no decir que muchos restaurantes de kebabs están llenos de moscas volando por las tapas (sin tapadera además, los muy cutres y cerdos), en más de una ocasión he salido nada más entrar en este tipo de establecimientos, y creo que despues de ver esto no volveré a comer un Kebab de esos.

Saludos