על ידי מצפה לגדול » 25 דצמבר 2017, 01:40 זה אומר ששולחים לפלאפון פקודה דרך יציאת קום, והוא מבצע.
את יציאת הקום אפשר ליצור דרך הבלוטוס'.
לדוגמא: להוצאת שיחה, אפשר לשלוח את הפקודה הבאה:
- קוד: בחר הכל
ATD*2800;
ואחריה "אנטר", והפלאפון יחייג למספר *2800.
לקבלת אנשי הקשר, יש לשלוח את הקוד הזה:
- קוד: בחר הכל
AT+CSCS="UCS2";+CPBS="ME";+CPBR=1,1000
(הפקודה הראשונה, מגדירה אותו על פורמט UCS2, שהוא היחיד שתומך בעברית כדלהלן,
הפקודה השנייה מגדירה אותו על אנשי הקשר של זיכרון הפלאפון, ולא הסים,
הפקודה השלישית מבקשת את אנשי הקשר, מ1, עד 1000.)
כשניסיתי לקבל את אנשי הקשר, גיליתי שבעברית, הפורמט היחיד שהוא תומך זה UCS2.
בשאר הפורמטים, הגיעו סימני שאלה וכו'.
אבל הוא היה משהו כזה:
- קוד: בחר הכל
05DE05E605E405D4002005DC05D205D305D505DC
כשניסיתי ליצור איש קשר חדש עם הקוד הנ"ל, נוצר איש קשר בשם "מצפה לגדול".
ואז ניסיתי להבין איך זה עובד.
ניסיתי לחפש על הפורמט הזה, ולא מצאתי שום קוד שעבד בפועל.
בסוף הבנתי שזה מחולק ליחידות בנות 4 תווים, וממילא זה הקוד ההקסדצימלי של תווי היונקוד.
להלן קוד ההצפנה והפיענוח:
פיענוח:
vbnet code
Function DecodingUCS2(str As String) As String
Dim Temp As String
Dim l, i, hexN As Long
l = Len(str)
Temp = ""
For i = 1 To l Step 4
'המרת המספר מהקסדצימלי, לדצימלי
hexN = Val("&h" & Mid(str, i, 4))
'קבלת האות בפועל, וצירופה למחרוזת
Temp = Temp & ChrW(hexN)
Next
DecodingUCS2 = Temp
End Function
הצפנה:
vbnet code
Function EncodingUCS2(str As String) As String
Dim Temp As String
Dim l, i As Long
l = Len(str)
Temp = ""
For i = 1 To l
'הערך של תו היוניקוד
unN = AscW(Mid(str, i))
'המרה למספר הקסדצימלי
hexN = Hex(unN)
'השלמת המספר ל4 תווים, והוספה למחרוזת
Temp = Temp & Right$("0000" & hexN, 4)
Next
EncodingUCS2 = Temp
End Function
