Bonjour à tous, j'ai récemment travaillé sur le mode PDU.. Pour ceux qui ne savent pas ce que c'est, c'est le mode de cryptage d'informations pour envoyer un SMS.. Le but est d'envoyer un sms à partir de son ordinateur

Je vais essayer d'être assez clair dans mes explications

Chaque lettre avant d'être envoyé est :
- remplacée par sa valeur ASCII
- Ensuite traduite en Binaire mais sur 7 bits
- Ensuite traduire le binaire 7 bits sur une base 7 de 8 bits (et c'est la que c'est drôle ^^ )
- Pour finalement le traduire en Hexadécimal et envoyé l'infos.

Les sources :
http://www.dreamfabric.com/sms/ (pour l'envoi complet d'un sms)
http://www.dreamfabric.com/sms/hello.html (pour la base 7 sur 8 bits)

En principe mon code est prévu pour que peu importe la taille du sms il passe.. Je n'ai pas encore su faire TOUT les tests.. Mais il semble plus que correct. Et par solidarité je vais le poster non pas pour ceux qui seront fainéant de le faire un jour, mais pour ceux qui après de longues recherches auront trouvés que très peu d'infos utiles..

(Veuillez excuser si par endroit il n'est pas le plus optimisé des codes mais s'y retrouver n'était pas une mince affaire ^^)

Tout d'abord en PDU la table ascii n'est pas la même.. ils utilisent une codification un peu différente (http://www.dreamfabric.com/sms/default_alphabet.html)..
J'ai donc déclaré 2 tableaux. Le premier avec les 127 caractères et le deuxième avec les caractères de sortie.
Je recherche dans mon tableau la valeur ascii et si je trouve je renvoi l'indice (qui lui vaudra la valeur modifiée de leur table)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
gtabPDU est un tableau de 137 entier
gtabEscUnicode est un tableau de 10 entier
 
gtabPDU= [64,163,36,165,232,233,249,236,242,199,10,216,248,13,197,229,-1,95,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,198,230,223,201,32,33,34,35,164,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,161,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,196,214,209,220,167,191,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,228,246,241,252,224,12,94,123,125,92,91,126,93,124,164]
gtabEscUnicode = [12,94,123,125,92,91,126,23,124,164]
On écrit un texte et on le converti en Hexa pour le convertir en binaire sur 7 bits.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
LIB_Ascii = ""
LIB_Bin = ""
 
nValeur est un entier
svaleur2 est une chaîne
nResindice est un entier
 
 
POUR i = 1 _A_ Taille(SAI_Texte)
	nValeur = Asc(Milieu(SAI_Texte,i,1))
	nResindice = TableauCherche(gtabPDU,tcLinéairePremier,nValeur) -1 
	SI nResindice <> -1 ALORS
		SI nResindice > 127 ALORS
			nValeur = nResindice - 127
			nResindice = gtabEscUnicode[nValeur]
			SI nResindice = -1 ALORS 
				Erreur("Caractère non supporté")
				SORTIR 
			FIN
		FIN
		LIB_Ascii += nResindice + " " 
		svaleur2 = numériqueversbase(nResindice,2,7)
	SINON 
		Erreur("Caractère non supporté ")
	FIN	
	LIB_Bin +=  svaleur2
FIN
Une fois qu'on obtient le binaire sur 7 bits on le passe en 8 bits comme décrit plus haut pour obtenir une base 7 de 8 bits.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
sChai1, sChai2, sChai3, sChai4 sont des chaîne ANSI
i, nDim1, k, j, m est un entier = 0
nTest est un entier 
nCompt,nCompt2 est un entier
nDim1 = (Taille(LIB_Bin)/7)
tab1 est un tableau de nDim1 chaînes ANSI
tab2 est un tableau de nDim1 chaînes ANSI
 
LIB_Hexa = ""
 
 
POUR i = 0 _A_ nDim1
	// On va lire les 7 bits
	sChai1 = Lecture7Bit(i)
	// On tronque les M bits à droites
	sChai2 = TruncD(sChai1, m)
	// On tronque les M bits à gauche
	sChai3 = TruncG(sChai1, m)
	nTest = modulo(i,8)
	SI nTest = 0 ALORS
		m = 0
	FIN
	m++
 
	SI i <> 0 ALORS
			j++
			tab2[j] = sChai2	
	FIN
	k++
		SI k < nDim1+1 ALORS
				tab1[k] = sChai3 
		FIN
FIN
POUR i = 1 _A_ nDim1
	SI i+1 <= nDim1 ALORS
		SI tab1[i+1] <> EOT  ALORS
			sChai4 += tab2[i] + tab1[i]
		SINON
			sChai4 += tab2[i+1] + tab2[i]
			tab1[i+1] = ""
			tab2[i+1] = ""
		FIN
	SINON
		sChai4 += tab2[i] + tab1[i]
	FIN
FIN
//Affiche résultat
LIB_B7 = sChai4
//Calcul des nombres à convertir en hexa ! 
nCompt = Taille(sChai4) /8
nCompt2= modulo(Taille(sChai4),8)
 
proc_Hexa(nCompt,nCompt2)
Procédure lecture7bit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
PROCEDURE Lecture7Bit(Ind)
sLChaine est une chaîne = LIB_Bin
sResul est une chaîne ANSI
 
sResul = Milieu(sLChaine, (Ind*7 + 1), 7)
 
RENVOYER sResul
Procédure TruncD
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
PROCEDURE TruncD(mChaine, Ind)
 
sMResult est une chaîne ANSI
 
sMResult = Droite(mChaine, Ind)
RENVOYER sMResult
Procédure TruncG
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
PROCEDURE TruncG(dChaine, Ind)
 
sDResult est une chaîne ANSI
 
sDResult = Gauche(dChaine, (7 - Ind))
 
RENVOYER sDResult
et finalement on convertit tout ça en hexadécimal

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PROCEDURE proc_Hexa(nCompt,ncompt2)
nInd est un entier = 0
nTemp est un entier
nTemp2 est un entier
 
 
POUR i = 1 _A_ nCompt
	nTemp = Milieu(LIB_B7,(nInd*8 +1),8)
	nTemp2 = Val(nTemp,2)
	LIB_Hexa+= Droite(EntierVersHexa(nTemp2),2)
	nInd ++
FIN
SI ncompt2 <> 0 ALORS 
	nTemp = Droite(LIB_B7,ncompt2)
	nTemp2 = Val(nTemp,2)
	LIB_Hexa += Droite(EntierVersHexa(nTemp2),2)
FIN
On obtient notre bout de code. (maintenant il ne reste plus qu'à faire l'inverse pour décoder la réception de message )

J'espère que ce tuto vous sera très utile.


Bonne continuation à tous, et long vie à ce forum !