BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
Flux RSS



Flag Counter
Partenaires
Le Deal du moment :
Dates stocks PS5 : consoles en vente sur Carrefour et ...
Voir le deal

CodeASCII convertiseur fichiers

Aller en bas

CodeASCII convertiseur fichiers Empty CodeASCII convertiseur fichiers

Message par Isnala 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




Isnala
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 7
Data de inscrição : 05/06/2013
Localização : France Calvados Normandie Caen

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum