Foro de elhacker.NET

Foro de elhacker.net

Programación

Scripting

Ayuda - Leer Caracter por Caracter

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: Ayuda - Leer Caracter por Caracter (Leído 5,139 veces)

SpesMod

Desconectado

Mensajes: 83

-reflejo-

Ayuda - Leer Caracter por Caracter

« en: 2 Febrero 2014, 18:19 pm »

Buenas, ando practicando esta programacion y la verdad se me anda complicando un poquito, vengo de C/C++ y lo que les voy a consultar ahora es un chancay de a 20 en C/C++ pero aqui en Bat se me hace dificil; bueno ahi va:

Resulta que quiero hacer un bat que lea un archivo *.txt caracter por caracter y a medida que lee los caracteres los vaya guardando en otro archivo pero con el valor ascii alterado sumandole 5, por ejemplo:

Tengo el archivo FUENTE.TXT cuyo contenido es "hola"; el bat deberia hacer:

lee "h", le suma 5 obteniendo "m" y guarda "m" en un nuevo archivo por ejemplo RESULTADO.TXT
lee el siguiente caracter "o", le suma 5 obteniendo "t" y añade "t" en RESULTADO.TXT
lee el siguiente caracter "l", le suma 5 obteniendo "q" y añade "q" en RESULTADO.TXT
lee el siguiente caracter "a", le suma 5 obteniendo "f" y añade "f" en RESULTADO.TXT

El resultado serian 2 archivos:

FUENTE.TXT cuyo contenido seria "hola"
RESULTADO.TXT cuyo contenido seria "mtqf" que en realidad es "hola" pero sumandole 5 posiciones ascii a cada uno de los caracteres.

Creo haberme explicado bien y en realidad se que mi problema es muy sencillo para ustedes, en C/C++ esto lo podria hacer en menos de 5 lineas, pero aqui no me sale; asi que espero que me puedan ayudar.
gracias de antemano


	En línea

Eleкtro

Ex-Staff

Desconectado

Mensajes: 9.878

Re: Ayuda - Leer Caracter por Caracter

« Respuesta #1 en: 2 Febrero 2014, 19:08 pm »

Cita de: SpesMod en 2 Febrero 2014, 18:19 pm

es un chancay de a 20 en C/C++ pero aqui en Bat se me hace dificil

Claro, Batch no dispone prácticamente de NADA util ni muhco menos de métodos/comandos para manejar ASCII o HEX para rotar caracteres (aunque se pueden improvisar cosas con el viejo truco del Exit Code).

¿Y si utilizas VBS (que lo puedes ejecutar como si se tratase de un archivo Bat) para escribir tu método de cifrado Caesar?:

Cita de: http://demon.tw/programming/vbs-caesar.html

Código

WScript.Echo Caesar("hola",5)
 
Function Caesar(str,rotation)
 
	Dim length,char,i
	Caesar = ""
	length = Len(str)
	For i = 1 To length
		char = Mid(str,i,1)
		If char >= "A" And char <= "Z" Then
			char = Asc("A") + (Asc(char) - Asc("A") + rotation) Mod 26
			Caesar = Caesar & Chr(char)
		ElseIf char >= "a" And char <= "z" Then
			char = Asc("a") + (Asc(char) - Asc("a") + rotation) Mod 26
			Caesar = Caesar & Chr(char)
		Else
			Caesar = Caesar & char
		End If
	Next
 
End Function

Saludos


« Última modificación: 2 Febrero 2014, 19:10 pm por Eleкtro »	En línea

SpesMod

Desconectado

Mensajes: 83

-reflejo-

Re: Ayuda - Leer Caracter por Caracter

« Respuesta #2 en: 2 Febrero 2014, 19:34 pm »

Hola, un gusto y gracias por responder tan pronto; en tu solucion el argumento está predefinido, como archivo VBS tendria que pasarle el archivo txt como argumento variable, no siempre va a contener lo mismo, ademas quisiera tambien poder enviarle el numero 5 como argumento.
Este VBS lo tendría que ejecutar con CALL desde otro bat verdad?, como lo ejecuto y le mando estos parametros (archivo y 5) para que los procese?
Gracias!


	En línea

Eleкtro

Ex-Staff

Desconectado

Mensajes: 9.878

Re: Ayuda - Leer Caracter por Caracter

« Respuesta #3 en: 3 Febrero 2014, 07:03 am »

Cita de: SpesMod en 2 Febrero 2014, 19:34 pm

como lo ejecuto y le mando estos parametros (archivo y 5) para que los procese?

No te lo tomes a mal pero para venir de un lenguaje como C/C++ te veo bastante perezoso para Googlear información básica (el manejo de argumentos en X lenguaje) :¬¬

~> http://ss64.com/vb/arguments.html

Entonces deberías reemplazar esta orden:

Citar

Código

WScript.Echo Caesar("hola",5)

Por esta otra:

Código

WScript.StdOut.Write(Caesar(WScript.Arguments(0), WScript.Arguments(1)))

Para llamar al Script y redireccionar la salida del Script a un archivo de texto puedes hacerlo así:

Código

Cscript.exe //NoLogo "Caesar.vbs" "hola" 5 > "RESULTADO.TXT"

Como viste en el ejemplo uso un string como parámetro y no un archivo de texto "fuente.txt", la razón es que usar archivos de texto en mi opinión es primitivo, estoy convencido de que podrías trabajar diréctamente con Strings sin necesidad de crear/manipular archivos secundarios en el HDD, de todas formas te muestro los cambios que deberías hacer al Script VBS para tomar un archivo de texto como primer argumento:

Código

' Cojo la primera linea del archivo que le pases como argumento.
str = Split(CreateObject("Scripting.FileSystemObject"). _
			OpenTextFile(WScript.Arguments(0), 1).ReadAll(), vbnewline)(0)
 
WScript.StdOut.Write(Caesar(str, WScript.Arguments(1)))

En la consola...:

Código

Cscript.exe //NoLogo "Caesar.vbs" "FUENTE.TXT" 5 > "RESULTADO.TXT"

Saludos!


« Última modificación: 3 Febrero 2014, 07:09 am por Eleкtro »	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	Reemplazar un caracter en una posicion dada por otro caracter Java	nico56	8	16,164	8 Mayo 2010, 22:26 pm por Debci
	[Solucionado] Separar una Cadena de Texto Caracter Por Caracter « 1 2 » Programación Visual Basic	agus0	19	22,809	5 Mayo 2011, 14:29 pm por Psyke1
	[Ayuda][C] Leer solo un caracter. Programación C/C++	GROV	6	11,136	24 Octubre 2012, 03:25 am por GROV
	como hacer una lectura de una palabra caracter a caracter??? « 1 2 3 » Programación C/C++	asdavid	21	13,388	5 Noviembre 2012, 20:21 pm por cypascal
	AYUDA leer carácter a carácter un fichero y guardarlo en una matriz C++ Programación C/C++	slavinyo	0	3,914	8 Junio 2013, 18:25 pm por slavinyo