PureBasic

Code : Tout sélectionner

;***********************************************
;Titre  :*codec_xor_xor_procedure
;Auteur  : Zorro
;Date  :02/08/2016
;Heure  :16:03:24
;Version Purebasic :  PureBasic 5.50 (Windows - x86)
;Version de l'editeur :EPB V2.64
; Libairies necessaire : Aucune 
;***********************************************


Declare.s codec_xor(sortie$, password.s)


;  ***************** l'encodeur  qui peut etre un prg a part que tu garde pour toi *********************
textacoder$="les Potirons sont ronds" ; le mot a coder
Password$="Le soleil brille" ; le mot de pass 

Debug "le Password est :" +Password$
Debug "le mot avant codage :"+textacoder$ ; avant codage
; 
coder$=codec_xor(textacoder$,Password$) ; on code le text avec la librairie
; 
Debug "le mot codé : "+coder$ ; apres codage

; **************************************************************************************


; ********************le decodeur  a mettre dans ton code (avec la procedure) ***************************** 

decoder$=codec_xor(coder$,"Le soleil brille") ; on decode le text encodé avec la librairie 
Debug "voici le mot decodé par la procedure :  "+decoder$ ; apres décodage 

;- *** Zone Procedures

Procedure.s codec_xor(sortie$, Password.s) 
		;by Dobro (Zorro)
		; Code Xor simple
		Text.s=sortie$
		Password.s=UCase(Password.s)
		P=0
		long_or = Len(Text.s)
		long_pass = Len(Password.s) 
		For i=1 To long_or
				P=P+1 : If P= long_pass:P=1:EndIf ; fait tourner le mot de pass
				car_pass.l=Asc( Mid(Password.s, P, 1))  ; recupere une lettre (son code ascii)du mot de pass
				car_text.l= Asc(Mid(Text.s, i, 1)) ; recupere une lettre (son code ascii) du text a coder
				If car_text.l=car_pass.l ; le caractere du text et le caractere du passwrd sont pareille !!									
						car_text.l=255 ; pour eviter de se retrouver avec un zero , on remplace le caractere du text par 255 ! 
						sorti.l=car_text.l;et on prends le code 255 a la place du caractere !!
						text_sorti.s=text_sorti.s+Chr(sorti)  ; on l'ajoute a la chaine de sortie
						Flag_xor=1 ; ce flag nous permet d'eviter une section de code plus bas (evite un Goto )
				ElseIF car_text.l=255 ; la on tombe sur le caractere special 255 , qui nous indique qu'il faut remplacer celui ci par la lettre du mot de pass
						car_text.l=car_pass.l ; c'est ce qu'on fait ici
						sorti.l=car_text.l;
						text_sorti.s=text_sorti.s+Chr(sorti) ; on l'ajoute
						Flag_xor=1 ; ; ce flag nous permet d'eviter une section de code plus bas (evite un Goto )
				EndIf  
				if Flag_xor=0 ; la fameuse partie de code a eviter en cas de caractere special (lettre du message = lettre du mot de pass)
						sorti.l= car_pass ! car_text ; un petit XOR  .... ici on fait un Xor simple sans avoir a bidouiller .... les caracteres message et mot de pass sont different						
						text_sorti.s=text_sorti.s+Chr(sorti)  ; on ajoute notre resultat a la chaine de sortie
				Endif
				Flag_xor=0 ; on remet le flag a zero au cas ou ...
		Next i ; on continu au caractere suivant :o)
		Text.s= text_sorti.s
		text_sorti.s=""
		ProcedureReturn Text.s  ; renvoi le resultat de notre opération
EndProcedure

Code : Tout sélectionner

Declare Code()
Declare Decode()

OpenWindow(0,0,0,200,50,"Code de Vigenère",#PB_Window_Tool | #PB_Window_ScreenCentered)
ButtonGadget(1,10,10,80,35,"Coder")
ButtonGadget(2,110,10,80,35,"Décoder")

Repeat
  event=WaitWindowEvent()
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          Code()
          End
        Case 2
          Decode()
          End
      EndSelect
    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver

      
Procedure Code()
  Define.s TexteCode,CharCle,CharClair,CharCode

Alphabet.s = "azertyuiopqsdfghjklmwxcvbnAZERTYUIOPQSDFGHJKLMWXCVBN,;:!?./§0123456789&é(-è_çà)=ù*$^%£² +\|[]#@"
TexteClair.s=InputRequester("Vigenere 1.0","Entrez le texte en clair à coder.","")
Cle.s=InputRequester("Vigenere 1.0","Entrez la clé de code.","",#PB_InputRequester_Password)
While Len(Cle) < Len(TexteClair)
  Cle=Cle+Cle
Wend

For i=1 To Len(TexteClair)
  CharClair = Mid(TexteClair,i,1)
  CharCle = Mid(Cle,i,1)
  PosCle = FindString(Alphabet,CharCle)
  PosClair = FindString(Alphabet,CharClair)
  PosCode = PosCle + PosClair
  If PosCode > Len(Alphabet)
    PosCode - Len(Alphabet)
  EndIf
  
  CharCode = Mid(Alphabet,PosCode,1)
  TexteCode = TexteCode + CharCode
Next
MessageRequester("Texte codé",TexteCode)
EndProcedure

Procedure Decode()
  Define.s TexteCode,CharCle,CharClair,CharCode,TexteClair

Alphabet.s = "azertyuiopqsdfghjklmwxcvbnAZERTYUIOPQSDFGHJKLMWXCVBN,;:!?./§0123456789&é(-è_çà)=ù*$^%£² +\|[]#@"
TexteCode=InputRequester("Vigenere 1.0","Entrez le texte codé.","")
Cle.s=InputRequester("Vigenere 1.0","Entrez la clé de code.","",#PB_InputRequester_Password)
While Len(Cle) < Len(TexteCode)
  Cle=Cle+Cle
Wend

For i=1 To Len(TexteCode)
  CharCode = Mid(TexteCode,i,1)
  CharCle = Mid(Cle,i,1)
  PosCle = FindString(Alphabet,CharCle)
  PosCode = FindString(Alphabet,CharCode)
  PosClair = PosCode - PosCle
  If PosClair < 0
    PosClair + Len(Alphabet)
  EndIf
  
  CharClair = Mid(Alphabet,PosClair,1)
  TexteClair = TexteClair + CharClair
Next
MessageRequester("Texte en clair",TexteClair)
EndProcedure

Code : Tout sélectionner

Le code de Vigenere est simple et pratique.

Code : Tout sélectionner

*j|;ZhE3luudrIDl|vczlXcEsdzl.l|xw+PWHs1

Code : Tout sélectionner

Declare.s rallonge_password(pass.s,longueur_pass)
longueur_pass=23 ; la longueur voulue ... par exemple la longueur du text a encrypter
pass.s="Soleil" ; le mot de pass visiblement trop court 
debug rallonge_password(pass.s,longueur_pass) ; la procedure qui va rallonger le mot de pass de la longeur voulue, avec les lettres du mot de pass prises au hasard

Procedure.s rallonge_password(pass.s,longueur_pass)
		; By Zorro
		Protected passwrd.s,long
		RandomSeed(8) ; <<<< ceci pour etre sur qu'avec un mot de pass precis, on est toujours le meme résultat une fois rallongé !! (pour le decodage c'est mieux LOL )
		; par exemple avec le pass "Soleil" et la longueur 23 on aura toujours ceci de genréré : "SoleilieoeSeiolollilieS"  :o)
		long= len(pass.s)-1
		if longueur_pass <long
				MessageRequester("erreur", "la longueur  demandée,doit etre superieur a la longueur du mot de pass")
				; note qu'on aurai pu reduire le mot de pass dans ce cas avec un simple
				;if longueur_pass<1:longueur_pass=1:endif
				;pass.s=left(pass.s,longueur_pass)
				ProcedureReturn "erreur"
		Endif
		If long<longueur_pass				
				manque=(longueur_pass-long)-1
				passwrd.s=pass.s
				For y= 1 to manque
						pos=random(long,1)						
						passwrd.s=passwrd.s+mid(pass.s,pos,1)					
				Next y
				ProcedureReturn passwrd.s
		Else
				ProcedureReturn pass.s
		Endif
EndProcedure