Mensajes

[EDITO:]

Espero que tanto tocarle los webos al registro de windows te sirva para algo.

Gracias Rando (supongo xD)
Por el momento, tanto tocar el registro y tocar la programación, no me dan como pa comer cada mes.

Estoy extendiendo la funcionalidad de un source (una librería tipo 'MediaInfo') y para hacer las cosas bien necesito incluir el mimetype equivalente de este tipo de archivo.

Un saludo



EDITO:

windows no lo tiene definido, puedes buscarlo en

HKEY_LOCAL_MACHINE\Software\classes (creo)

si por ahi no esta definido, es generico

Hola, eso ya lo examiné pero no aparece el valor 'ContentType' para la extensión .REG, pero entonces, si es genérico, ¿cual sería el mimetype generico para un archivo de texto unicode?

text/plain ?

El comando espera el input por parte del usuario 2 veces consecutivas, una para introducir la contraseña, y otra para confirmarla. Si, lamentáblemente esta es una de esas excepciones.

De todas formas he notado que la sintaxis del comando permite especificar una nueva contraseña para la cuenta del usuario, diréctamente:

Código [Seleccionar] Expandir

Net.exe user "Daniel" "Contraseña"

Y eso no requiere confirmación.

Saludos!

Pues eso, ¿alguien podría aclararme cual es el mimetype correcto para un archivo de registro (.reg) Unicode?

He buscado en la siguiente url (y varias más), pero no lo encuentro: http://www.webmaster-toolkit.com/mime-types.shtml así que quizás estoy omitiendo algo importante a tener en cuenta?.

Me imagino que debería ser algo parecido a esto:

Código [Seleccionar] Expandir

text/win-registry-script

Pero no encuentro nada parecido.

Saludos

[Spanglish]

Vaya, parece un reto rinteresante (y con mayor dificultad que los retos de ingenieria inversa).

Por un lado resulta obvio que es una cifra imposible de calcular a ciencia exacta, ya que existen palabras que están obsoletas de la edad del medievo, luego hay otras que tienen varios significados lo cual no se puede determinar con exactitud si se trata de una palabra o dos, y otras palabras que... bueno, otras palabras que depende de la persona la podría considerar una palabra o no ( Shula, Zanahorio, Perraca, Trololo, Yah Bich!, etc... que quizás no son los mejores ejemplos, pero no se me ocurre ninguno mejor ahora mismo), y luego está el Spanglish, algo que a mi personálmente me causa verguenza ajena.

Lo que si me parece algo más sensato es intentar estimar una cifra aproximada de palabras registradas actuálmente.

Sobre el Inglés, según la marca de diccionarios 'Oxford':

The Second Edition of the 20-volume  Oxford English Dictionary contains full entries for 171,476 words in current use, and 47,156 obsolete words. To this may be added around 9,500 derivative words included as subentries. Over half of these words are nouns, about a quarter adjectives, and about a seventh verbs; the rest is made up of exclamations, conjunctions, prepositions, suffixes, etc. And these figures don't take account of entries with senses for different word classes (such as noun and adjective).

Sobre el Castellano, no he encontrado información al respecto en la 'Real Academia Española (RAE)', así que aporto otra información de dudosa veracidad:

Spanish dictionaries, on the other hand, typically have around 100,000 words. Of course, many of those words are seldom used.

Saludos.

[Roll your own servers with Netcat]

Esta es la información que he encontrado al respecto en 1 minuto, y parece estar bien explicado:

· Roll your own servers with Netcat

Espero que te sirva,
Saludos!

PD: Aquí tienes la fuente por si quieres ver más. (sin sarcasmo)

[Python.exe]

cuando escribo python en cmd me dise
python no se reconoce como un comando interno o externo, programa o archivo por lotes ejecutable.

Claro, necesitas agregar la ruta del directorio en donde se ubica 'Python.exe', a la variable de entorno 'PATH' de Windows, de lo contrario, Windows no puede localizar el archivo (a menos que lo coloques en la carpeta 'C:\Windows\System32', que ya está agregada por defecto al 'PATH').

Puedes añadir la ruta diréctamente desde la 'CMD' usando el comando 'SetX' y/o 'Reg', o desde el 'Regedit', pero por razones de seguridad te recomiendo usar mi Software dedicado a esa misma función:
· [SOURCE] PATHS (Administra las entradas de las variables de entorno 'PATH' y 'PATHEXT')

Te muestro un ejemplo de uso para añadir 'Python' al 'PATH' de todos los usuarios de un PC (suponiendo que tengas ubicado el intérprete de Python en esta ruta específica):

Código [Seleccionar] Expandir

PATHS /Add "C:\Program Files (x86)\Python"



Una vez hayas agregado el directorio de Python al PATH, solo debes hacer esto:

Código [Seleccionar] Expandir

python.exe "hola.py"

Aunque, por otro lado, puedes usar diréctamente la ubicación de Python sin necesidad de agregar nada al PATH:

Código [Seleccionar] Expandir

"C:\Ruta donde tienes instalado Python\python.exe" "hola.py"
...Pero, claro, eso resulta muy incómodo.

Tampoco te vendría mal asociar los Scripts de Python (.py, .pyc) para que, al hacer doble click en un archivo, se carguen automáticamente al intérprete:

...Mediante este Registry-Script:

Código [Seleccionar] Expandir

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.PY]
@="python.file"

[HKEY_CLASSES_ROOT\.PYC]
@="Python.CompiledFile"

[HKEY_CLASSES_ROOT\Python.File\Shell\Open\Command]
@="CMD /K \"\"C:\\Program Files (x86)\\Python\\Python.exe\" \"%1\" %*\""

[HKEY_CLASSES_ROOT\Python.NoConFile\Shell\open\command]
@="CMD /K \"\"C:\\Program Files (x86)\\Python\\Pythonw.exe\" \"%1\" %*\""

...O mediante este Batch-Script:

Código (dos) [Seleccionar] Expandir

:: Converted with Reg2Bat by Elektro

@Echo OFF

REG ADD "HKEY_CLASSES_ROOT\.PY" /V "" /D "python.file" /F
REG ADD "HKEY_CLASSES_ROOT\.PYC" /V "" /D "Python.CompiledFile" /F
REG ADD "HKEY_CLASSES_ROOT\Python.File\Shell\Open\Command" /V "" /D "CMD /K \"\"C:\Program Files (x86)\Python\Python.exe\" \"%%1\" %%*\"" /F
REG ADD "HKEY_CLASSES_ROOT\Python.NoConFile\Shell\open\command" /V "" /D "CMD /K \"\"C:\Program Files (x86)\Python\Pythonw.exe\" \"%%1\" %%*\"" /F

Pause&Exit

me puedes explicar mejor sobre como verificar que se encuentre en la variable paths de windows.

Con la misma utilidad que te indiqué puedes comprobarlo (aunque dado el error que mencionaste tan descriptivo de la CMD, ya te puedo asegurar que no lo tienes agregado al PATH), con el comando:

Código [Seleccionar] Expandir

PATHS /List


(Las ubicaciones marcadas en rojo indican que el directorio no existe)

También puedes comprobarlo desde la 'CMD' con el comando:

Código (dos) [Seleccionar] Expandir

set path

O desde el 'Regedit' en la(s) clave(s):

Código [Seleccionar] Expandir

HKCU\Environment

Código [Seleccionar] Expandir

HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment


PD: Las dudas sobre Python debes formularlas en el subforo de Scripting, allí recibirás la ayuda apropiada.

Saludos!

Gracias por la solucion en VB, pero al final he decidido hacerlo en C++

Si para ti no supone un problema realizar la comprobación de si el usuaro actual es Administrador en el lenguaje que sea, entonces yo te recomiendo VB.NET/CSharp, no necesitas manejar la WinAPI como estás intentando en VB6 y C++ (que también podrías hacerlo de esa manera), en .NET se puede lograr con un código reálmente simple y efectivo:

Código (vbnet) [Seleccionar] Expandir

   ' Current User Is Admin?
   ' ( By Elektro )
   '
   ''' <summary>
   ''' Indicates whether the current logged user is an Administrator.
   ''' </summary>
   ''' <returns><c>true</c> if the current logged user is an Administrator, <c>false</c> otherwise.</returns>
   Public Function CurrentUserIsAdmin() As Boolean

       Dim Identity As Security.Principal.WindowsIdentity =
           Security.Principal.WindowsIdentity.GetCurrent

       Return New Security.Principal.WindowsPrincipal(Identity).
                  IsInRole(Security.Principal.WindowsBuiltInRole.Administrator)

   End Function

Saludos

[único]

el comando se salta las opciones, cuando me pregunta la contraseña nueva inmediatamente se salta a la confirmación y me dice que el comando se completo exitosa mente

No es que 'se salte las opciones', es que se computan automáticamente los caracteres de la salida del comando 'Echo' al 'Input' del otro comando después de la 'Pipe',
ese es el único modo de poder 'responder' al 'Input' de otro comando en Batch, se denomina rediceccionamiento de comando.

En resumen, es como si escribieses automáticamente y presionases la tecla 'Enter' para aceptar el 'Input'.

pero lo que quiero es que se responda solo, con una información previamente digitada

No se exáctamente a que te refieres, ¿lo que quieres es establecer previamente el valor que quieres redirigir?, entonces puedes setearlo en una variable, por ejemplo, esto responderá automáticamente 'N' ('False') a una pregunta 'Booleana':

Código (dos) [Seleccionar] Expandir


@Echo OFF
Set "Var=N"

Echo %Var%|Choice

te agradecería me explicaras a mas detalle la sintaxis del comando con ejemplos

Aquí puedes aprender más acerca del redireccionamiento de comandos ~> http://ss64.com/nt/syntax-redirection.html

si no se pude hacer así,  explicarme otra forma de hacer lo que quiero

No existe ninguna otra forma de 'responder', al menos usando puro y limitado Batch.

Lo más parecido que puedes hacer es usar un lenguaje de verdad, o aplicaciones 'CommandLine' de terceros (como por ejemplo Nircmd.exe o Sendkeys.exe) para enviar las pulsaciones del teclado que desees al foco de una instancia de la 'CMD.exe'.

· VBScript - SendKeys Method | TechNet  +  VBScript - Sendkeys Method | SS64

· NirCMD | NirSoft

PD: Por lenguaje de verdad tampoco me refiero a 'VisualBasicScript'.



EDITO:

Porfavor, no formularme preguntas por mensaje privado.

Me gustaría aclarar si lo que pido ¿se resuelve con archivos .bat o con script?

Un archivo .bat es un Script.

· Scripting language | Wikipedia

· Batch file | Wikipedia

· Scripting languages | Wikipedia

y de ser esto ultimo, ¿que es lo que necesito saber para conseguirlo?

Simplemente necesitarías aprender lo básico del lenguaje, pero si no quieres aprender lo básico puedes aprender diréctamente el uso (la sintaxis) de los métodos que dispone del lenguaje para enviar pulsaciones del teclado, y la documentación de dichos métodos la puedes encontrar en la referencia oficial de cada lenguaje, si es que a eso te refieres con la pregunta, no tengo muy claro lo que quieres.

Cualquier lenguaje (decente) te serviría (Ej: Ruby, Python, C++, CSharp, VB, VB.NET, etc...), o cualquier lenguaje inferior de Scripting orientado a la automatización de tareas (Ej: VBScript, Powershell, LUA, etc...), o cualquier software de tipo 'Macro Recorder' para grabar y reproducir acciones ('Macros'), en fín prácticamente es una tarea que la puedes llevar a cabo de forma sencilla de muchas maneras, pero no usando como herramienta el triste e inutil Batch.


Saludos!

Convierte los caracteres diacríticos de un String.

Código (vbnet) [Seleccionar] Expandir

    ' Convert Diacritics
    '
    ' Usage Examples:
    ' MsgBox(RemoveDiacritics("áéíóú àèìòù äëïöü ñÑ çÇ", UnicodeNormalization:=System.Text.NormalizationForm.FormKD))
    ' Result: 'aeiou aeiou aeiou nN cC'
    '
    ''' <summary>
    ''' Converts the diacritic characters in a String to an equivalent normalized English characters.
    ''' </summary>
    ''' <param name="String">
    ''' Indicates the string that contains diacritic characters.
    ''' </param>
    ''' <param name="UnicodeNormalization">
    ''' Defines the type of Unicode character normalization to perform.
    ''' (Default is 'NormalizationForm.FormKD')
    ''' </param>
    ''' <returns>System.String.</returns>
    Public Function ConvertDiacritics(ByVal [String] As String,
                                      Optional ByVal UnicodeNormalization As System.Text.NormalizationForm =
                                                                             System.Text.NormalizationForm.FormKD) As String

        Dim Characters As String = String.Empty

        For Each c As Char In [String].Normalize(UnicodeNormalization)

            Select Case Globalization.CharUnicodeInfo.GetUnicodeCategory(c)

                Case Globalization.UnicodeCategory.NonSpacingMark,
                     Globalization.UnicodeCategory.SpacingCombiningMark,
                     Globalization.UnicodeCategory.EnclosingMark

                    ' Do nothing.
                    Exit Select

                Case Else
                    Characters &= CStr(c)

            End Select

        Next c

        Return Characters

    End Function

Una Class para utilizar el cifrado cromático de texto, es decir, esto:




Aquí pueden descargar la Class (no soy el autor de este laborioso código, solo lo adapté un poco añadiéndole algún método más, y elaboré un poco mejor la documentación):
http://pastebin.com/92JEWwxV

El source original: https://github.com/varocarbas/snippets_chromaticEncryption_VB

Ejemplo de uso:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   ''' <summary>
   ''' Instance of a Class containing most of the methods involving image-related actions,
   ''' common to both encryption and decryption.
   ''' </summary>
   Dim curentIO As New IO

   Private Sub Test() Handles MyBase.Load


       ' Encrypt text into image:
       Dim Encrypt As New Encrypting(Color.Red, "Hello World!", curentIO, 0)
       Dim EncryptedImage As Bitmap = Nothing

       Select Case Encrypt.errors

           Case False
               ' Encrypts the text and returns the encrypted Bitmap.
               EncryptedImage = curentIO.Encrypt(500, 500, Encrypt)

               ' Or encrypts the text and save it directlly in a image file.
               Encrypt = curentIO.SaveImageFile("C:\File.png", 500, 500, Encrypt)

           Case True
               MessageBox.Show(Encrypt.errorMessage, "There was an error while encrypting the text.")

       End Select


       ' Decrypt image into text:
       Dim Decrypt As New Decrypting(Color.Red, EncryptedImage, curentIO, 0)
       ' Dim Decrypt As New Decrypting(Color.Red, Bitmap.FromFile("C:\File.png"), curentIO, 0)

       If Not Decrypt.errors Then
           MsgBox(Decrypt.decryptedString)
       Else
           MessageBox.Show(Decrypt.errorMessage, "Either the input parameters or the image are wrong.")
       End If


   End Sub

End Class