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 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

CodeASCII convertiseur fichiers

Voir le sujet précédent Voir le sujet suivant 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

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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