CodeASCII convertiseur fichiers

par Isnala le Dim 16 Juin 2013, 02:31

voici donc un code, qui est sencé me rendre un fichier convertis en hexadecimal

il ne fonctionne pas encore, il y as un problem, j'ai un problem avac vbs,
pour la convertion

placez ce fichier dans un nouveau dossier, faite glisser un exe dessus

Code:: @Title CodeASCII. @Echo off Setlocal Enabledelayedexpansion set nomFichier=%~nx1 set extFichier=%~x1 set extFichier=%extFichier:~1% set extFichierComp=%extFichier:~,-1%_ echo. echo.%nomFichier% echo.%extFichier% echo.%extFichierComp% echo. ::pause set sortie=%~dp0CodeASCII.vbs Call:CodeASCII.vbs cd.>"CodeASCII_%nomFichier%.txt" for /f "tokens=* delims= " %%c in ('type "%~dp0%nomFichier%"') do ( cscript /nologo "%sortie%" "%%c">>"%~dp0CodeASCII_%nomFichier%.txt" ) ::del "%sortie%" set sortie=%~dp0CodeASCII_%nomFichier%.bat Call:ascii del "%~dp0CodeASCII_%nomFichier%.txt" EndLocal ::pause exit by-Isnala :CodeASCII.vbs ( echo. echo.Option Explicit echo.Dim strText echo.Dim strAscii echo.Dim colArgs echo.Dim I echo.Set colArgs = WScript.Arguments echo.If colArgs.Count ^<^> 1 Then WScript.Quit echo.strText = colArgs.Item^(0^) echo.strAscii = "" echo.For I = 1 To Len^(strText^) echo.If I ^<^> 1 Then strAscii = strAscii ^& "" echo.strAscii = strAscii ^& Hex^(Asc^(Mid^(strText,I,1^)^)^) echo.Next echo. Rem::echo.WScript.Echo echo.WScript.Echo strAscii Rem::echo.WScript.Echo echo. echo.'utilises en ligne de commande en entrant: echo.'cscript /nologo ascii.vbs "ma chaîne de caractères à convertir" echo. )>"%sortie%" Goto:eof :ascii cd.>"%sortie%" ( [email="echo.@Echo"]echo.@Echo[/email] off echo.:%nomFichier% echo.for %%%%b in ^( )>>"%sortie%" for /f "tokens=* delims= " %%c in ('type "%~dp0CodeASCII_!nomFichier!.txt"') do ( echo."%%c" rem if "%%c"=="" echo. )>>"%sortie%" ( echo.^)Do^>^>"%nomFichier%.%extFichierComp%" ^( echo. echo.For b=1 To len^^^("%%%%~b"^^^) Step 2 echo. echo.WScript.StdOut.Write Chr^^^(Clng^^^("&H"^^^&Mid^^^("%%%%~b",b,2^^^)^^^)^^^) : Next echo.^) echo.Cscript /b /e:vbs "%nomFichier%.%extFichierComp%"^>"%nomFichier%.%extFichier%" echo.Del "%nomFichier%.%extFichierComp%"^>nul 2^>^&1 echo.Goto:eof echo. )>>"%sortie%" Goto:eof ( echo.^)Do^>^>"%nomFichier%.dat" ^( echo. echo.For b=1 To len^^^("%%%%b"^^^) Step 2 echo. echo.WScript.StdOut.Write Chr^^^(Clng^^^("&H"^^^&Mid^^^("%%%%b",b,2^^^)^^^)^^^) : Next echo.^) echo.Cscript /b /e:vbs "%nomFichier%.dat"^>"%nomFichier%.%extFichierComp%" echo.Del /f /q /a "%nomFichier%.dat"^>nul 2^>^&1 echo.Expand -r "%nomFichier%.%extFichierComp%"^>nul 2^>^&1 echo.Del /f /q /a "%nomFichier%.%extFichierComp%"^>nul 2^>^&1 echo.Goto:eof echo. )>>"%sortie%" Goto:eof