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 24 le Ven 15 Déc 2017, 23:28
Derniers sujets
Flux RSS



Flag Counter
Partenaires

CodeASCII convertiseur fichiers

Aller en bas

CodeASCII convertiseur fichiers

Message 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




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

- Sujets similaires

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