PureBasic

Code : Tout sélectionner

DataSection
	Debut:
	Data.b 4,75,38,63,50,76,48,3,-29,74,49,64,41,3,-29,65,40,-9,48,-2,40,69,53,63,56,68,40,5,-29,33,40,-9,48,-2,36,71,51,60,47,67,40,-9,22,39,11,-9,40,75,-29
	Data.b 65,40,-9,49,60,-29,74,36,64,54,-9,51,56,54,-9,52,76,50,64,-29,58,50,59,40,73,-15,5,-15
	Fin:
EndDataSection

Taille = ?fin - ?debut
Dim Caractere(Taille)

Restore Debut
For i = 1 To Taille
	Read.b Caractere.b
	PokeB(@Caractere(i), Caractere)
Next


For Cle = 1 To 255
	
	Texte.s = ""
	For i = 1 To Taille
		Texte + Chr(Caractere(i) ! Cle)
	Next
	Debug Texte
	
Next

Code : Tout sélectionner

[code]DataSection
	Debut:
	Data.b 4,75,38,63,50,76,48,3,-29,74,49,64,41,3,-29,65,40,-9,48,-2,40,69,53,63,56,68,40,5,-29,33,40,-9,48,-2,36,71,51,60,47,67,40,-9,22,39,11,-9,40,75,-29
	Data.b 65,40,-9,49,60,-29,74,36,64,54,-9,51,56,54,-9,52,76,50,64,-29,58,50,59,40,73,-15,5,-15
	Fin:
EndDataSection

Procedure TestTexte(Texte.s)
	Dimension = Len(Texte)
	For Index = @Texte To @Texte + Dimension - 1
		Caractere = PeekB(Index) & $FF
		If (Caractere >= 'a' And Caractere <= 'z') Or (Caractere >= 'A' And Caractere <= 'Z') Or (Caractere >= '0' And Caractere <= '9')
			Compteur + 1
		EndIf
		If Caractere = ' '
			CompteurEspace + 1
		EndIf
	Next
	If Compteur >= Dimension * 0.70 And CompteurEspace * 20 >= Dimension ; Plus de 70% de caractères "standard" et un espace tous les 20 caractères minimum
		ProcedureReturn 1
	Else
		ProcedureReturn 0
	EndIf
EndProcedure


Taille = ?fin - ?debut
Dim Caractere(Taille)

Restore Debut
For i = 1 To Taille
	Read.b Caractere(i)
Next


For Cle = 1 To 255
	CleSuivante = Cle
	
	Texte.s = ""
	For i = 1 To Taille
		Temp = Caractere(i) + Cle
		Texte + Chr(Temp)
	Next
	If TestTexte(Texte)
		Debug Texte
	EndIf
	
Next

Code : Tout sélectionner

Bug.b       = Asc("ÿ")
PasDeBug.a  = Asc("ÿ")

Debug Bug 
Debug PasDeBug

Code : Tout sélectionner

cle$="=)"

pointeur=1

For i=1 To 77;Len(txt$)
  ;b.b=Asc(Mid(txt$,i,1))
  Read.b b.b
  b+Asc(Mid(cle$,pointeur,1))
  
  a$+Chr(b)
  
  pointeur+1
  If pointeur>Len(cle$)
    pointeur=1
  EndIf
Next

Debug a$

DataSection
Data.b 4,75,38,63,50,76,48,3,-29,74,49,64,41,3,-29,65,40,-9,48,-2,40,69,53,63,56,68,40,5,-29,33,40,-9,48,-2,36,71,51,60,47,67,40,-9,22,39,11,-9,40,75,-29
Data.b 65,40,-9,49,60,-29,74,36,64,54,-9,51,56,54,-9,52,76,50,64,-29,58,50,59,40,73,-15,5,-15  
EndDataSection