Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[BAT] Crypter et décrypter des chaînes de caractères ?
Auteur Message
Répondre en citant
Message [BAT] Crypter et décrypter des chaînes de caractères ? 
Salut
J'ai trouvé ce bout de code sur le net pour crypter et décrypter des chaînes de caractères, alors, j'ai voulu le modifier un peu pour que le cryptage et le décryptage se fait dans le même batch et non pas sur deux fichiers séparés, voici le lien Batch Encryption
Et voici mon code modifié :
Code:
@echo off
setlocal  ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
title Encrypt and decrypt string
color a
(set CHAR[a]=UDFM45) & (set CHAR[b]=H21DGF) & (set CHAR[c]=FDH56D) & (set CHAR[d]=FGS546) & (set CHAR[e]=JUK4JH)
(set CHAR[f]=ERG54S) & (set CHAR[g]=T5H4FD) & (set CHAR[h]=RG641G) & (set CHAR[i]=RG4F4D) & (set CHAR[j]=RT56F6)
(set CHAR[k]=VCBC3B) & (set CHAR[l]=F8G9GF) & (set CHAR[m]=FD4CJS) & (set CHAR[n]=G423FG) & (set CHAR[o]=F45GC2)
(set CHAR[p]=TH5DF5) & (set CHAR[q]=CV4F6R) & (set CHAR[r]=XF64TS) & (set CHAR[s]=X78DGT) & (set CHAR[t]=TH74SJ)
(set CHAR[u]=BCX6DF) & (set CHAR[v]=FG65SD) & (set CHAR[w]=4KL45D) & (set CHAR[x]=GFH3F2) & (set CHAR[y]=GH56GF)
(set CHAR[z]=45T1FG) & (set CHAR[1]=D4G23D) & (set CHAR[2]=GB56FG) & (set CHAR[3]=SF45GF) & (set CHAR[4]=P4FF12)
(set CHAR[5]=F6DFG1) & (set CHAR[6]=56FG4G) & (set CHAR[7]=USGFDG) & (set CHAR[8]=FKHFDG) & (set CHAR[9]=IFGJH6)
(set CHAR[0]=87H8G7) & (set CHAR[@]=G25GHF) & (set CHAR[#]=45FGFH) & (set CHAR[$]=75FG45) & (set CHAR[*]=54GDH5)
(set CHAR[(]=45F465) & (set CHAR[.]=HG56FG) & (set CHAR[,]=DF56H4) & (set CHAR[-]=F5JHFH) & (set CHAR[ ]=SGF4HF)
(set CHAR[\]=45GH45) & (set CHAR[/]=56H45G)
echo Enter a string to encrypt:
set /p Encrypt=
cls
set Encrypt2=%Encrypt%
set "EncryptOut="
:encrypt2
set char=%Encrypt2:~0,1%
set Encrypt2=%Encrypt2:~1%
set EncryptOut=%EncryptOut%!CHAR[%char%]!
if not "%Encrypt2%"=="" goto encrypt2
echo.%EncryptOut%>%~dp0encrypted.txt
echo.
set /p CryptedPass=<%~dp0encrypted.txt
echo Input string clear text ===^> %Encrypt%
echo.
echo Output string crypted ===^> %CryptedPass%
pause

set /p Decrypt=<%~dp0encrypted.txt
cls
set Decrypt2=%Decrypt%
set "DecryptOut="
:decrypt2
set char=%Decrypt2:~0,6%
set Decrypt2=%Decrypt2:~6%
set DecryptOut=%DecryptOut%!CHAR[%char%]!
if not "%Decrypt2%"=="" goto decrypt2
echo Input string: %Decrypt%
echo.
echo Output string: %DecryptOut%
pause

mon problème est dans la partie dernière du code càd l'affichage du string à décrypter lu à partir du fichier texte ? il ne m'affiche rien ?
Sûrement, j'ai raté quelque chose ? mais je ne la trouve pas ou exactement ?
merci d'avance Wink




______________________________________________________
Mes Contributions en Téléchargement
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [BAT] Crypter et décrypter des chaînes de caractères ? 
Et !decryptout! Ça marche avec des !
Je suis sut mon tel peut pas test Wink




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message [BAT] Crypter et décrypter des chaînes de caractères ? 
VOILà VOILà 



Code:
@echo off
setlocal  ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
title Encrypt and decrypt string
color 9
(set CHAR[A]=ONJLIU) & (set CHAR[B]=SZVNHL) & (set CHAR[C]=VRIDUF) & (set CHAR[D]=QMWKTI) & (set CHAR[E]=J62DSP)
(set CHAR[F]=MQBRKH) & (set CHAR[G]=BOANMW) & (set CHAR[H]=QOXYBZ) & (set CHAR[I]=7AC5VB) & (set CHAR[J]=FTP1NK)
(set CHAR[K]=PTIELI) & (set CHAR[L]=ROSI27) & (set CHAR[M]=OKDH85) & (set CHAR[N]=TJNI5D) & (set CHAR[O]=OJ854D)
(set CHAR[P]=CA41DV) & (set CHAR[Q]=OJISD5) & (set CHAR[R]=LM5WGD) & (set CHAR[R]=EDSDJC) & (set CHAR[T]=FKQ8JD)
(set CHAR[U]=T45SFC) & (set CHAR[V]=PDG56I) & (set CHAR[W]=133SIW) & (set CHAR[X]=NDJCUK) & (set CHAR[Y]=L5D2JV)
(set CHAR[Z]=52GHTM) & (set CHAR[a]=UDFM45) & (set CHAR[b]=H21DGF) & (set CHAR[c]=FDH56D) & (set CHAR[d]=FGS546)
(set CHAR[f]=KJNXLW) & (set CHAR[g]=T5H4FD) & (set CHAR[h]=RG641G) & (set CHAR[i]=RG4F4D) & (set CHAR[j]=RT56F6)
(set CHAR[k]=VCBC3B) & (set CHAR[l]=F8G9GF) & (set CHAR[m]=FD4CJS) & (set CHAR[n]=G423FG) & (set CHAR[o]=F45GC2)
(set CHAR[p]=TH5DF5) & (set CHAR[q]=CV4F6R) & (set CHAR[r]=XF64TS) & (set CHAR[s]=X78DGT) & (set CHAR[t]=TH74SJ)
(set CHAR[u]=BCX6DF) & (set CHAR[v]=FG65SD) & (set CHAR[w]=4KL45D) & (set CHAR[x]=GFH3F2) & (set CHAR[y]=GH56GF)
(set CHAR[z]=45T1FG) & (set CHAR[1]=D4G23D) & (set CHAR[2]=GB56FG) & (set CHAR[3]=SF45GF) & (set CHAR[4]=P4FF12)
(set CHAR[5]=F6DFG1) & (set CHAR[6]=56FG4G) & (set CHAR[7]=USGFDG) & (set CHAR[8]=FKHFDG) & (set CHAR[9]=IFGJH6)
(set CHAR[0]=87H8G7) & (set CHAR[@]=G25GHF) & (set CHAR[#]=45FGFH) & (set CHAR[$]=75FG45) & (set CHAR[*]=54GDH5)
(set CHAR[(]=45F465) & (set CHAR[.]=HG56FG) & (set CHAR[,]=DF56H4) & (set CHAR[-]=F5JHFH) & (set CHAR[ ]=SGF4HF)
(set CHAR[\]=45GH45) & (set CHAR[/]=56H45G) & (set CHAR[é]=FJLXLN) & (set CHAR[è]=DS6DF5) & (set CHAR[—]=F89SZE)
(set CHAR[ô]=%LWLXN) & (set CHAR[ö]=KCXKFV) & (set CHAR[']=THGFBJ) & (set CHAR[e]=JUK4JH)
(set CHAR[ONJLIU]=A) & (set CHAR[SZVNHL]=B) & (set CHAR[VRIDUF]=C) & (set CHAR[QMWKTI]=D) & (set CHAR[J62DSP]=E)
(set CHAR[MQBRKH]=F) & (set CHAR[BOANMW]=G) & (set CHAR[QOXYBZ]=H) & (set CHAR[7AC5VB]=I) & (set CHAR[FTP1NK]=J)
(set CHAR[PTIELI]=K) & (set CHAR[ROSI27]=L) & (set CHAR[OKDH85]=M) & (set CHAR[TJNI5D]=N) & (set CHAR[OJ854D]=O)
(set CHAR[CA41DV]=P) & (set CHAR[OJISD5]=Q) & (set CHAR[LM5WGD]=R) & (set CHAR[EDSDJC]=S) & (set CHAR[FKQ8JD]=T)
(set CHAR[T45SFC]=U) & (set CHAR[PDG56I]=V) & (set CHAR[133SIW]=W) & (set CHAR[NDJCUK]=X) & (set CHAR[L5D2JV]=Y)
(set CHAR[52GHTM]=Z) & (set CHAR[UDFM45]=a) & (set CHAR[H21DGF]=b) & (set CHAR[FDH56D]=c) & (set CHAR[FGS546]=d)
(set CHAR[KJNXLW]=f) & (set CHAR[T5H4FD]=g) & (set CHAR[RG641G]=h) & (set CHAR[RG4F4D]=i) & (set CHAR[RT56F6]=j)
(set CHAR[VCBC3B]=k) & (set CHAR[F8G9GF]=l) & (set CHAR[FD4CJS]=m) & (set CHAR[G423FG]=n) & (set CHAR[F45GC2]=o)
(set CHAR[TH5DF5]=p) & (set CHAR[CV4F6R]=q) & (set CHAR[XF64TS]=r) & (set CHAR[X78DGT]=s) & (set CHAR[TH74SJ]=t)
(set CHAR[BCX6DF]=u) & (set CHAR[FG65SD]=v) & (set CHAR[4KL45D]=w) & (set CHAR[GFH3F2]=x) & (set CHAR[GH56GF]=y)
(set CHAR[45T1FG]=z) & (set CHAR[D4G23D]=1) & (set CHAR[GB56FG]=2) & (set CHAR[SF45GF]=3) & (set CHAR[P4FF12]=4)
(set CHAR[F6DFG1]=5) & (set CHAR[56FG4G]=6) & (set CHAR[USGFDG]=7) & (set CHAR[FKHFDG]=8) & (set CHAR[IFGJH6]=9)
(set CHAR[87H8G7]=0) & (set CHAR[G25GHF]=@) & (set CHAR[45FGFH]=#) & (set CHAR[75FG45]=$) & (set CHAR[54GDH5]=*)
(set CHAR[45F465]=() & (set CHAR[HG56FG]=.) & (set CHAR[DF56H4]=,) & (set CHAR[F5JHFH]=-) & (set CHAR[SGF4HF]= )
(set CHAR[45GH45]=\) & (set CHAR[56H45G]=/) & (set CHAR[FJLXLN]=é) & (set CHAR[DS6DF5]=è) & (set CHAR[F89SZE]=—)
(set CHAR[GLWLXN]=ô) & (set CHAR[KCXKFV]=ö) & (set CHAR[THGFBJ]=') & (set CHAR[JUK4JH]=e)
:debut
color 9
mode con cols=49 lines=12
cls
echo.
echo  1.crypter qq chose
echo.
echo  2.decrypter qq chose
echo.
batbox /c 0xc
set /p "choix=. >"
if %choix%==1 goto crypt
if %choix%==1 goto crypt
if %choix%==2 goto decrypt
if %choix%==2 decrypt
:crypt
color 9
mode con cols=49 lines=12
cls
echo.
batbox /d " Entre un texte a crypter : " /c 0xc
echo.
set /p Encrypt=
batbox /c 0x9
cls
set Encrypt2=%Encrypt%
set "EncryptOut="
:encrypt2
cls
set char=%Encrypt2:~0,1%
set Encrypt2=%Encrypt2:~1%
set EncryptOut=%EncryptOut%!CHAR[%char%]!
if not "%Encrypt2%"=="" goto encrypt2
echo.%EncryptOut%>%~dp0encrypted.txt
echo.
set /p CryptedPass=<%~dp0encrypted.txt
mode con cols=100 lines=30
echo.
batbox /d " Texte de depart ===>" /c 0xc /d " %Encrypt%" /c 0x9
echo.
echo.
batbox /d " Texte crypte    ===>" /c 0xc /d " %CryptedPass%" /c 0x9
echo.
echo.
echo.
batbox /c 0x2 /d " Sauvegarder ce texte dans un fichier txt ??"
echo.
echo.
set /p "choix="
if %choix%==o goto sauv
if %choix%==oui goto sauv
if %choix%==n goto debut
if %choix%==non goto debut
batbox /c 0x9
pause >nul
goto debut
:sauv
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo                                                                                               Le %date% à %time%>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo ----------------------------------------------------------------------------------------------------------------------->> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo  Texte de départ    :  %Encrypt%>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo  --------------->> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo  Texte crypté  :  %CryptedPass%>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo  ------------>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo ----------------------------------------------------------------------------------------------------------------------->> %userprofile%/desktop/cryptanddecrypt/crypt.txt
cls
echo.
echo.
batbox /d " Ouvrir ce fichier?"
echo.
echo.
set /p "choix="
if %choix%==o goto ouv2
if %choix%==oui goto ouv2
if %choix%==n goto debut
if %choix%==non goto debut
goto debut
:decrypt
color 9
mode con cols=200 lines=50
cls
echo.
batbox /d " Entre un texte a decrypter : " /c 0xc
echo.
set /p Decrypt=
set /p Encrypt=<%~dp0encrypted.txt
batbox /c 0x9
cls
set Decrypt2=%Decrypt%
set "DecryptOut="
:decrypt2
cls
set char=%Decrypt2:~0,6%
set Decrypt2=%Decrypt2:~6%
set DecryptOut=%DecryptOut%!CHAR[%char%]!
if not "%Decrypt2%"=="" goto decrypt2
mode con cols=200 lines=50
echo.
batbox /d " Texte crypte   :" /c 0xc /d " %Decrypt%" /c 0x9
echo.
echo.
batbox /d " Texte decrypte :" /c 0xc /d " %DecryptOut%" /c 0x9
echo.
echo.
echo.
batbox /c 0x2 /d " Sauvegarder ce texte dans un fichier txt ??"
echo.
echo.
set /p "choix="
if %choix%==o goto sauv2
if %choix%==oui goto sauv2
if %choix%==n goto debut
if %choix%==non goto debut
batbox /c 0x9
pause >nul
goto debut
:sauv2
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo                                                                                               Le %date% à %time%>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo ----------------------------------------------------------------------------------------------------------------------->> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo  Texte crypté  :  %Decrypt%>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo  ------------>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo  Traduction    :  %DecryptOut%>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo  ---------->> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo ----------------------------------------------------------------------------------------------------------------------->> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
cls
echo.
echo.
batbox /d " Ouvrir ce fichier?"
echo.
echo.
set /p "choix="
if %choix%==o goto ouv
if %choix%==oui goto ouv
if %choix%==n goto debut
if %choix%==non goto debut
goto debut
:ouv
start %userprofile%/desktop/cryptanddecrypt/decrypt.txt
goto debut
:ouv2
start %userprofile%/desktop/cryptanddecrypt/crypt.txt
goto debut



Balise code merci. SachaDee




______________________________________________________

Programme
Skype
Répondre en citant
Message [BAT] Crypter et décrypter des chaînes de caractères ? 
programme a écrit:
VOILà VOILà 
Code:

@echo off
setlocal  ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
title Encrypt and decrypt string
color 9
(set CHAR[A]=ONJLIU) & (set CHAR[B]=SZVNHL) & (set CHAR[C]=VRIDUF) & (set CHAR[D]=QMWKTI) & (set CHAR[E]=J62DSP)
(set CHAR[F]=MQBRKH) & (set CHAR[G]=BOANMW) & (set CHAR[H]=QOXYBZ) & (set CHAR[I]=7AC5VB) & (set CHAR[J]=FTP1NK)
(set CHAR[K]=PTIELI) & (set CHAR[L]=ROSI27) & (set CHAR[M]=OKDH85) & (set CHAR[N]=TJNI5D) & (set CHAR[O]=OJ854D)
(set CHAR[P]=CA41DV) & (set CHAR[Q]=OJISD5) & (set CHAR[R]=LM5WGD) & (set CHAR[R]=EDSDJC) & (set CHAR[T]=FKQ8JD)
(set CHAR[U]=T45SFC) & (set CHAR[V]=PDG56I) & (set CHAR[W]=133SIW) & (set CHAR[X]=NDJCUK) & (set CHAR[Y]=L5D2JV)
(set CHAR[Z]=52GHTM) & (set CHAR[a]=UDFM45) & (set CHAR[b]=H21DGF) & (set CHAR[c]=FDH56D) & (set CHAR[d]=FGS546)
(set CHAR[f]=KJNXLW) & (set CHAR[g]=T5H4FD) & (set CHAR[h]=RG641G) & (set CHAR[i]=RG4F4D) & (set CHAR[j]=RT56F6)
(set CHAR[k]=VCBC3B) & (set CHAR[l]=F8G9GF) & (set CHAR[m]=FD4CJS) & (set CHAR[n]=G423FG) & (set CHAR[o]=F45GC2)
(set CHAR[p]=TH5DF5) & (set CHAR[q]=CV4F6R) & (set CHAR[r]=XF64TS) & (set CHAR[s]=X78DGT) & (set CHAR[t]=TH74SJ)
(set CHAR[u]=BCX6DF) & (set CHAR[v]=FG65SD) & (set CHAR[w]=4KL45D) & (set CHAR[x]=GFH3F2) & (set CHAR[y]=GH56GF)
(set CHAR[z]=45T1FG) & (set CHAR[1]=D4G23D) & (set CHAR[2]=GB56FG) & (set CHAR[3]=SF45GF) & (set CHAR[4]=P4FF12)
(set CHAR[5]=F6DFG1) & (set CHAR[6]=56FG4G) & (set CHAR[7]=USGFDG) & (set CHAR[8]=FKHFDG) & (set CHAR[9]=IFGJH6)
(set CHAR[0]=87H8G7) & (set CHAR[@]=G25GHF) & (set CHAR[#]=45FGFH) & (set CHAR[$]=75FG45) & (set CHAR[*]=54GDH5)
(set CHAR[(]=45F465) & (set CHAR[.]=HG56FG) & (set CHAR[,]=DF56H4) & (set CHAR[-]=F5JHFH) & (set CHAR[ ]=SGF4HF)
(set CHAR[\]=45GH45) & (set CHAR[/]=56H45G) & (set CHAR[é]=FJLXLN) & (set CHAR[è]=DS6DF5) & (set CHAR[—]=F89SZE)
(set CHAR[ô]=%LWLXN) & (set CHAR[ö]=KCXKFV) & (set CHAR[']=THGFBJ) & (set CHAR[e]=JUK4JH)
(set CHAR[ONJLIU]=A) & (set CHAR[SZVNHL]=B) & (set CHAR[VRIDUF]=C) & (set CHAR[QMWKTI]=D) & (set CHAR[J62DSP]=E)
(set CHAR[MQBRKH]=F) & (set CHAR[BOANMW]=G) & (set CHAR[QOXYBZ]=H) & (set CHAR[7AC5VB]=I) & (set CHAR[FTP1NK]=J)
(set CHAR[PTIELI]=K) & (set CHAR[ROSI27]=L) & (set CHAR[OKDH85]=M) & (set CHAR[TJNI5D]=N) & (set CHAR[OJ854D]=O)
(set CHAR[CA41DV]=P) & (set CHAR[OJISD5]=Q) & (set CHAR[LM5WGD]=R) & (set CHAR[EDSDJC]=S) & (set CHAR[FKQ8JD]=T)
(set CHAR[T45SFC]=U) & (set CHAR[PDG56I]=V) & (set CHAR[133SIW]=W) & (set CHAR[NDJCUK]=X) & (set CHAR[L5D2JV]=Y)
(set CHAR[52GHTM]=Z) & (set CHAR[UDFM45]=a) & (set CHAR[H21DGF]=b) & (set CHAR[FDH56D]=c) & (set CHAR[FGS546]=d)
(set CHAR[KJNXLW]=f) & (set CHAR[T5H4FD]=g) & (set CHAR[RG641G]=h) & (set CHAR[RG4F4D]=i) & (set CHAR[RT56F6]=j)
(set CHAR[VCBC3B]=k) & (set CHAR[F8G9GF]=l) & (set CHAR[FD4CJS]=m) & (set CHAR[G423FG]=n) & (set CHAR[F45GC2]=o)
(set CHAR[TH5DF5]=p) & (set CHAR[CV4F6R]=q) & (set CHAR[XF64TS]=r) & (set CHAR[X78DGT]=s) & (set CHAR[TH74SJ]=t)
(set CHAR[BCX6DF]=u) & (set CHAR[FG65SD]=v) & (set CHAR[4KL45D]=w) & (set CHAR[GFH3F2]=x) & (set CHAR[GH56GF]=y)
(set CHAR[45T1FG]=z) & (set CHAR[D4G23D]=1) & (set CHAR[GB56FG]=2) & (set CHAR[SF45GF]=3) & (set CHAR[P4FF12]=4)
(set CHAR[F6DFG1]=5) & (set CHAR[56FG4G]=6) & (set CHAR[USGFDG]=7) & (set CHAR[FKHFDG]=8) & (set CHAR[IFGJH6]=9)
(set CHAR[87H8G7]=0) & (set CHAR[G25GHF]=@) & (set CHAR[45FGFH]=#) & (set CHAR[75FG45]=$) & (set CHAR[54GDH5]=*)
(set CHAR[45F465]=() & (set CHAR[HG56FG]=.) & (set CHAR[DF56H4]=,) & (set CHAR[F5JHFH]=-) & (set CHAR[SGF4HF]= )
(set CHAR[45GH45]=\) & (set CHAR[56H45G]=/) & (set CHAR[FJLXLN]=é) & (set CHAR[DS6DF5]=è) & (set CHAR[F89SZE]=—)
(set CHAR[GLWLXN]=ô) & (set CHAR[KCXKFV]=ö) & (set CHAR[THGFBJ]=') & (set CHAR[JUK4JH]=e)
:debut
color 9
mode con cols=49 lines=12
cls
echo.
echo  1.crypter qq chose
echo.
echo  2.decrypter qq chose
echo.
batbox /c 0xc
set /p "choix=. >"
if %choix%==1 goto crypt
if %choix%==1 goto crypt
if %choix%==2 goto decrypt
if %choix%==2 decrypt
:crypt
color 9
mode con cols=49 lines=12
cls
echo.
batbox /d " Entre un texte a crypter : " /c 0xc
echo.
set /p Encrypt=
batbox /c 0x9
cls
set Encrypt2=%Encrypt%
set "EncryptOut="
:encrypt2
cls
set char=%Encrypt2:~0,1%
set Encrypt2=%Encrypt2:~1%
set EncryptOut=%EncryptOut%!CHAR[%char%]!
if not "%Encrypt2%"=="" goto encrypt2
echo.%EncryptOut%>%~dp0encrypted.txt
echo.
set /p CryptedPass=<%~dp0encrypted.txt
mode con cols=100 lines=30
echo.
batbox /d " Texte de depart ===>" /c 0xc /d " %Encrypt%" /c 0x9
echo.
echo.
batbox /d " Texte crypte    ===>" /c 0xc /d " %CryptedPass%" /c 0x9
echo.
echo.
echo.
batbox /c 0x2 /d " Sauvegarder ce texte dans un fichier txt ??"
echo.
echo.
set /p "choix="
if %choix%==o goto sauv
if %choix%==oui goto sauv
if %choix%==n goto debut
if %choix%==non goto debut
batbox /c 0x9
pause >nul
goto debut
:sauv
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo                                                                                               Le %date% à %time%>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo ----------------------------------------------------------------------------------------------------------------------->> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo  Texte de départ    :  %Encrypt%>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo  --------------->> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo  Texte crypté  :  %CryptedPass%>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo  ------------>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo ----------------------------------------------------------------------------------------------------------------------->> %userprofile%/desktop/cryptanddecrypt/crypt.txt
cls
echo.
echo.
batbox /d " Ouvrir ce fichier?"
echo.
echo.
set /p "choix="
if %choix%==o goto ouv2
if %choix%==oui goto ouv2
if %choix%==n goto debut
if %choix%==non goto debut
goto debut
:decrypt
color 9
mode con cols=200 lines=50
cls
echo.
batbox /d " Entre un texte a decrypter : " /c 0xc
echo.
set /p Decrypt=
set /p Encrypt=<%~dp0encrypted.txt
batbox /c 0x9
cls
set Decrypt2=%Decrypt%
set "DecryptOut="
:decrypt2
cls
set char=%Decrypt2:~0,6%
set Decrypt2=%Decrypt2:~6%
set DecryptOut=%DecryptOut%!CHAR[%char%]!
if not "%Decrypt2%"=="" goto decrypt2
mode con cols=200 lines=50
echo.
batbox /d " Texte crypte   :" /c 0xc /d " %Decrypt%" /c 0x9
echo.
echo.
batbox /d " Texte decrypte :" /c 0xc /d " %DecryptOut%" /c 0x9
echo.
echo.
echo.
batbox /c 0x2 /d " Sauvegarder ce texte dans un fichier txt ??"
echo.
echo.
set /p "choix="
if %choix%==o goto sauv2
if /i %choix%==oui goto sauv2
if %choix%==n goto debut
if /i %choix%==non goto debut
batbox /c 0x9
pause >nul
goto debut
:sauv2
echo.>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo                                                                                               Le %date% à %time%>> %userprofile%/desktop/cryptanddecrypt/crypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo ----------------------------------------------------------------------------------------------------------------------->> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo  Texte crypté  :  %Decrypt%>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo  ------------>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo  Traduction    :  %DecryptOut%>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo  ---------->> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo.>> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
echo ----------------------------------------------------------------------------------------------------------------------->> %userprofile%/desktop/cryptanddecrypt/decrypt.txt
cls
echo.
echo.
batbox /d " Ouvrir ce fichier?"
echo.
echo.
set /p "choix="
if %choix%==o goto ouv
if %choix%==oui goto ouv
if %choix%==n goto debut
if %choix%==non goto debut
goto debut
:ouv
start %userprofile%/desktop/cryptanddecrypt/decrypt.txt
goto debut
:ouv2
start %userprofile%/desktop/cryptanddecrypt/crypt.txt
goto debut


Ce code n'est pas mauvais mais
- Le faite d'enregistrer sur le bureau n’arrange pas tout le monde, tu devrais créer un dossier où se trouve le batch
- met des "/i" à tes "if" pour éviter la case.

Sinon, ça marche nikel !




______________________________________________________
Je ne suis pas ce que je suis. Mais si j'étais ce que je suis alors je ne serais pas ce que je suis actuellement (vous avez 2 heures).

Python : 90%
Batch : 65%
AutoIt : 20%

Site : http://lavapower.890m.com
Visiter le site web du posteur
Répondre en citant
Message [BAT] Crypter et décrypter des chaînes de caractères ? 
Pensez à [CODE]




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Message [BAT] Crypter et décrypter des chaînes de caractères ? 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch