Mensajes

[&]

Si lo quieres hacer el plan cutre puedes meter todos los comandos en una linea uniendolos con &, por ejemplo:

Código [Seleccionar] Expandir

cd\ & dir

La forma habitual de hacer este tipo de cosas es usando Pipes... Tu creas el proceso del "cmd.exe" (AKA %ComSpec%) y le dices donde ha de escribir todo (Cambiando el I/O)... luego tu con ReadFile() y WriteFile() vas leyendo todo lo que hayas de leer... mas informacion aqui:

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_visual_basic/ejecutar_bat_desde_shell-t255992.0.html;msg1240519#msg1240519
(Se puede acortar un poco el codigo, pero esa seria la version correcta)

Un saludo

Forma "normal":

Código (python) [Seleccionar] Expandir

cadena = raw_input("Escribe lo que quieras:")
vocales = "a","e","i","o","u"
new_cadena = ""

for letra in cadena:
   if not(letra.lower() in vocales):
       new_cadena += letra
       
print new_cadena

Forma chachi :

Código (python) [Seleccionar] Expandir

print "".join(letra for letra in raw_input("Escribe lo que quieras:") if not(letra.lower() in ("a","e","i","o","u")))

Crees que por tener un antivirus actualizado no puedes infectarte? Pues te equivocas.

[Avira Antivir]

Avira Antivir y te dejas de todo esto.

Que inocente

Puedo preguntar por que intentas evitar keybd_event()?

Es una idea astuta, pero los keyloggers mas completos hacen una micro captura de pantalla al rededor del mouse cuando clickeas... asi que sabria a que posicion has desplazado la escritura...

Código (vb) [Seleccionar] Expandir

Option Explicit

' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton...

Private Sub Command1_Click()
   Text1.Text = Xor0F(Text1.Text)
End Sub

Public Function Xor0F(ByVal sData As String) As String
   Dim i   As Long

   Xor0F = sData

   For i = 1 To Len(Xor0F)
       Mid$(Xor0F, i, 1) = Chr$(Asc(Mid$(Xor0F, i, 1)) Xor &HF)
   Next i
End Function

Por si quieres aprender algo sobre estas tecnicas:

Código [Seleccionar] Expandir

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/269-cifrar-descifrar.htm

Un saludo

[cifrar]

En castellano se dice cifrar, no encriptar

No parece que tengas mucha idea sobre cifrados... No estoy seguro de lo que quieres... pero te pongo este ejemplo:

Código (vb) [Seleccionar] Expandir

Option Explicit

' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton...

Private Sub Command1_Click()
    Text1.Text = XorFF(Text1.Text)
End Sub

Public Function XorFF(ByVal sData As String) As String
    Dim i   As Long
   
    XorFF = sData
   
    For i = 1 To Len(XorFF)
        Mid$(XorFF, i, 1) = Chr$(Asc(Mid$(XorFF, i, 1)) Xor &HFF)
    Next i
End Function

Ahora lo bajo y le hecho un vistazo.

Por cierto, debes usar titulos mas descriptivos para tus posts...


Alguien ya se encargo de analizarlo:

Código [Seleccionar] Expandir

http://www.satinfo.es/blog/?p=6975

No creo que tenga tiempo de crear el codigo completo, asi que para contribuir algo, aqui esta la forma mas rapida [que se me ocurre] de sacar el cuadrado anterior a n:

Código (vb) [Seleccionar] Expandir

    Do Until (n And 7) = 1 Or (n And 31) = 4 Or (n And 127) = 16 Or (n And 191) = 0
        n = n - 1
    Loop

Un saludo