Comment ouvrir des fichiers .pdu .
Novice20
Messages postés
2
Statut
Membre
-
Heliotte Messages postés 1561 Statut Membre -
Heliotte Messages postés 1561 Statut Membre -
Bonjour ou plutôt bonsoir
voilà mon problème j'ai télécharge via ma boite email, des sms que j'avais gardés sur mon telephone et pour les sauvegarder sur mon ordinateur
je n'arrive pas à les ouvrir. Fichier PDU (.pdu
une personne a t'elle une idée ou une astuce pour pouvoir enfin les lire et les sauvegarder autrement.
je vous remercie vivement. et un bon début de semaine à vous tous et toutes
voilà mon problème j'ai télécharge via ma boite email, des sms que j'avais gardés sur mon telephone et pour les sauvegarder sur mon ordinateur
je n'arrive pas à les ouvrir. Fichier PDU (.pdu
une personne a t'elle une idée ou une astuce pour pouvoir enfin les lire et les sauvegarder autrement.
je vous remercie vivement. et un bon début de semaine à vous tous et toutes
1 réponse
-
Bonsoir Novice20,
Le décodage des "sms" n'est pas toujour facile à trouver.
Tu parles d'un fichier ".pdu", mais décodage 7bits, 16 bits ?
Une piste en programmation "Delphi" pour l'encodage et le décodage en 16 bits:
function Encode16BitsPDU(Text: WideString): String; var i: Integer; begin Result:= ''; for i:= 1 to Length(Text) do Result:= Result+ IntToHex((Ord(Text[i]) and $FF00) shr 8, 2)+ IntToHex(Ord(Text[i]) and $FF, 2); end; function Decode16BitsPDU(Value: String): WideString; var i: Integer; function GetCharFromPDU(cPDU: Integer): WChar; begin Result:= WChar((cPDU shr 8) * 256 + (cPDU and $FF)); end; begin Result:= ''; i:= 1; if (Length(Value) mod 4 > 0) or (Length(Value) = 0) then Result:= 'Error!' else while i < Length(Value) do begin Result:= Result+ GetCharFromPDU(StrToInt('$'+ Copy(Value, i, 4))); Inc(i, 4); end; end;
Bon amusement !