7bit

شاتوت (شاه توت : غرب آسیا ) دارای قند طبیعی و سرشار از ویتامین ها مثل کلسیم ، پتاسیم و منیزیم ... ضدسرطان .. پاک کردن روده ها و رفع یبوست ( نه مزمن )

GSM 03.40

SEND SMS through At Command

00150008810100358500600831c7321d14be87f320b3fcdd06a1cbf23228dd6e97c9e930bdccce87422194f6fd2683cc6179580e5abfdd29

TP-UDL : 31(hex) 3×16+1=49

TP-UD :

c7321d14be87f320b3fcdd06a1cbf232

28dd6e97c9e930bdccce87422194f6fd

2683cc6179580e5abfdd29

-Decode UD

--bring hexes from the last to the first 

29ddbf......C7

--Convert hexes to binary (8bit)

0010100111011101....11000111

29(00101001)

--Remove zero(s) at the left

43×8-Int(43×(8/7))×7=1

--Arrange binaries in 7bit

--Convert binary to hex

--Arrange hexes from the last to the first

--Convert hexes to string

Encoding :

Hex_Count=49

Add Zero(s) at the left

[int(48×(7/8))+1]×8-49×7=1 Zero

Arrange binaries in 8bit

Decoding :

Hex_Count : 43

Remove Zero(s) at the first

How many?

43×8-int(43×(8/7))×7=1 Zero

Arrange binaries in 7bit

کاهش شدید ارزش پولی ظرف فقط ۲۰ ماه

رسول خدا در خطبه ای فرمود:  أَیُّهَا النَّاسُ إِیَّاکُمْ وَ خَضْرَاءَ الدِّمَنِ ای مردم از سبزه مزبله پرهیز کنید.

سؤال شد: "خضراء الدمن= سبزه مزبله"  چیست؟

پیامبر فرمود:  الْمَرْأَةُ الْحَسْنَاءُ فِی مَنْبِتِ السَّوْءِ

زن زیبا رو و رعنا که در محیط نامناسب پرورش یافته و پرورده محیط نامناسب اعتقادی و اخلاقی است. (1)

پس خضراء الدمن یعنی دختران  زیبارویی که در خانواده و محیط ناپاک رشد یافته و گر چه زیبا و رعنا و ماننده سبزه بهار خوش آب و رنگ هستند، ولی ناپاک اند. از لحاظ اخلاق و پای بندی  به عفت و حیا، با توجه به تربیت ناپاکی که داشته اند ، نمره قبولی نمی گیرند.

امکان رشد مجدد دندان‌ها به صورت نامحدود

تا کنون تمام آزمایشات بر روی موش‌های مبتلا به این بیماری دندانی انجام شده است. در طی مطالعات، محققان ژنی را کشف کردند که پروتئینی را که در رشد یا عدم رشد دندان نقش دارد، رمزگذاری می‌کند. محققان دریافتند موش‌هایی که فاقد ژن خاصی هستند، تعداد دندان‌هایشان افزایش یافته است. پروتئینی به نام (USAG-۱) که توسط این ژن سنتز شده است، رشد دندان‌ها را محدود می کند.

هنگامی که همه چیز طبیعی باشد، روند رشد پس از جایگزینی دائمی دندان متوقف می‌شود، بر این اساس دانشمندان با تمرکز بر روی این پروتئین آنتی بادی را تولید کردند که می‌تواند به طور موقت از عملکرد این پروتئین جلوگیری کرده و به دندان‌های جدید اجازه رشد دوباره بدهد.

کامنت یکی از شهروندان در بهبودی با لیزر :

سلام.لیزر پرتوان وکم‌توان به جز هزینه ی زیادی که برای بیمار دارد.هیچ خاصیت دیگری در درمان آن ندارد و فقط بعنوان تکنولوژی جدید جیب بیماران را به نفع صاحب دستگاه لیزر خالی میکنند.که اتفاقا همان فیزیوتراپی اثر خیلی بهتری در درمان دارد.
بعد از ده جلسه لیزرپرتوان و نداشتن یک سر سوزن اثر .پزشک معالج همان فیزیوتراپی را تجویزکردند و از بیماران دیگر هم که از لیزر استفاده کرده اند .سوال کردم که هیچکدام راضی نبوده اند و هیچ خاصیتی نداشته. بجز خالی کردن جیب بیمار . واقعا متاسفم برای افرادی که از این دستگاه بعنوان درمان استفاده می کنند و جیب بیماران را خالی میکنن.و متاسفانه پزشکان هم آنها را به این لیزر هدایت میکنند.
لطفا این مطلب رامنتشر کنید که حداقل بقیه بیماران گرفتار این دام لیزر نشوند.

SMSPDU-DELIVER

069189190150132006918908080008712042518192818406280633062A064700200627064A0646062A06310646062A0033003000200631064806320647060C00200032002B0032002006AF064A06AF062706280627064A062A00200647062F064A06470020063406280627064606470020062A06270020063306270639062A002000320030003A00340039003A003200310020062A06270631064A

***06918919015013

06>>>Length (91/89/19/01/50/13)  91=1 Len

91>>>+

8919015013>>>9891100531

***200691890808000871204251819281

TP-DCS : Data Coding Scheme (08)

TP-SCTS : Time Stamp

712042518192>>>YYMMDD:170224

518192>>>HHMMSS:151829

TP-UDL(User Data Length) & TP-UD

***8406280633062A064700200627064A0646062A06310646062A0033003000200631064806320647060C00200032002B0032002006AF064A06AF062706280627064A062A00200647062F064A06470020063406280627064606470020062A06270020063306270639062A002000320030003A00340039003A003200310020062A06270631064A

0628 has 2 Length :06/28

User Data Length : 

132 Decimal to Hex ?!!!

132>>>132\16 & 132  Mod 16>>>84

Concatenated SMS

in every part 70 Characer including space

05 00 03 CC 03 01

05 00 03 CC 03 02

05 00 03 CC 03 03

Field1: Length of UDH

Field2: IEI (information Element Identifier)-1 octet

Field3: IEL(information Element Length)-1 octet

Length Excluding IEI

Field4 : Unique Refrence number For All Parts-1 octet

From 00 to FF   ( 00-FF )

Field5 : Total number of parts-1 octer

00-FF ... Not Be Zero

Field6 : this part's number in sequence-1 octet

Start from 1 To 

Sending Message : ( Single Part )

PDU
07912160130300F411000A8158888700890000aa27D3E614D42CCEE7E17319342FBBE920B3FCDD0605A9A0E1BBDD0EBBC9206A794E2FCB01

SCA(Service Center Address)07912160130300F4
length 07
Address type 91
Service center address 2160130300F4

PDU-TYPE11

MR (Message ID) : 00

DA (Destination Address) : 0A815888870089

Lenght of the address : 10>>>0A

Address Type : 81

Destination phone number: 5888870089

PID (Protocol ID) : 00

DCS (Data Coding Scheme) : 00

VP(Validity Period ) : aa

UDL (User Data Length) :  39 >>> 27

(User Data) :

D3E614D42CCEE7E17319342FBBE920B3FCDD0605A9A0E1BBDD0EBBC9206A794E2FCB01

another Ex. Submit-SMS

Message Split into two part

just part 1 :

007100098121436587F90008008C050003000201063306440627064500200639064406CC0020062D06270644062A002006860637064806310647002006450646002006270644062706460020062F06310020062C064406330647002006470633062A06450020064800200646064506CC0020062A06480646064500200635062D0628062A002006A9064606450020063406280020063306270639

Split Message >>>> 05 00 03 00 02 01

Data Coding Scheme >>> 08 ( UCS )  Like Persian format

00310D0881010035850008011E0645064606380645002006280627063400200641063106320646062F0645

Status Report : 31

MR ( Message Refren e ) : 0D

UDL ( User Data Length ) : 16 >>> Hex=10

UD ( User Data ) : 0645064606380645002006280627063400200641063106320646062F0645

User Data Header (UDH) is a binary structure which may be present at the start of a short message in the Short Message Service in GSM. It does not contain any text, but it specifies how the message should be formatted and processed.

UDH can be used to form Concatenated SMS

SMS (Short Message Service) can contain up to 160 characters, using the 7-bits GSM default alphabet or 140 characters for an 8 bit alphabet or 70 characters for a 16 bit UCS-2 alphabet.

MultiPart SMS : Submit-SMS

----- PDU---1/7 ------

0071000881010035850008058C050003000701062F0631002006AF0648063406CC200C0647062706CC00200633063106CC002006AF064406A9063306CC002006330627064506330648064606AF0020062706320020062C064506440647002006330627064506330648064606AF002006AF064406A9063306CC0020006100350030002006480020006100350031002006280647002006470645

08(Length)-81-10005358>>>088101003585

User Data Length (UDL) : Decimal=140>>>Hex=8C

UDH ( User Data Header ) : 050003000701

05 Length 00 03 00 Refrence 07 Total 01 Number

Length: 152

----- PDU---2/7 ------

0071000881010035850008058C050003000702063106270647002006AF0648063406CC200C0647062706CC00200645062D0628064806280020062F06CC06AF063106CC002006470645068606480646002006AF064406A9063306CC002000610032003100200645063406A906440020062A0628062F06CC064400200073006D00730020062806470020006D006D0073002006280647200C0635

Length: 152

----- PDU---3/7 ------

0071000881010035850008058C05000300070306480631062A0020062E0648062F06A906270631002006CC06A900200645063406A9064400200628063306CC0627063100200631062706CC062C0020064800200622063206270631062F06470646062F0647002006270633062A002E00200645063906450648064406270020062806270020062706410632062706CC06340020062A0639062F

Length: 152

----- PDU---4/7 ------

0071000881010035850008058C0500030007040627062F002006A906270631062706A9062A06310020062706330020062706450020062706330020062F0631002006330627064506330648064606AF00200028064506390645064806440627064B0020003300300030002006A906270631062706A9062A06310029002006280647200C063506480631062A0020067E06CC0634200C06410631

Length: 152

----- PDU---5/7 ------

0071000881010035850008058C050003000705063600200073006D0073002006CC06270020067E06CC0627064506A900200645062A064606CC0020062806470020067E06CC06270645002006860646062F002006310633062706460647200C062706CC002006CC06270020006D006D00730020062A0628062F06CC06440020064506CC200C06340648062F002E0020062A0628062F06CC0644

Length: 152

----- PDU---6/7 ------

0071000881010035850008058C0500030007060020067E06CC0627064500200645062A064606CC0020062806470020067E06CC06270645002006860646062F0020063106330627064606470020062706CC0020062A062C063106280647002006460627062E06480634062706CC0646062F06CC002006270633062A002006A9064700200647064606AF06270645002006270631063306270644

Length: 152

----- PDU---7/7 ------

007100088101003585000805740500030007070020067E06CC0627064506A900200637064806440627064606CC0020062F0631002006330627064506330648064606AF00200648002006AF0648063406CC200C0647062706CC002006270646062F0631064806CC062F06CC00200631062E0020064506CC200C062F0647062F002E

Length: 128

SMS-SUBMIT

Message To : 10005358

00710E088101003585001A000E050003CC07010645064606380645

Bit fields in the first octet of SM-TL TPDU

bit(s)	Meaning
1-0	TP-Message-Type-Indicator (TP-MTI)
2	TP-More-Messages-to-Send (TP-MMS) in SMS-DELIVER (0 = more messages)
2	TP-Reject-Duplicates (TP-RD) in SMS-SUBMIT
3	TP-Loop-Prevention (TP-LP) in SMS-DELIVER and SMS-STATUS-REPORT
4-3	TP-Validity-Period-Format (TP-VPF) in SMS-SUBMIT (00 = not present)
5	TP-Status-Report-Indication (TP-SRI) in SMS-DELIVER
5	TP-Status-Report-Request (TP-SRR) in SMS-SUBMIT and SMS-COMMAND
5	TP-Status-Report-Qualifier (TP-SRQ) in SMS-STATUS-REPORT
6	TP-User-Data-Header-Indicator (TP-UDHI)
7	TP-Reply-Path (TP-RP) in SMS-DELIVER and SMS-SUBMIT

004008810100358500083231213121530016050003CC030106450646063806450200062806270634

DeliveyDate/Time :

323121312153>>>2023/12/13 13:12:35

TP-UDL : Decimal:22>>>Hex:16

TP-UDH : 050003CC0301

عبارت Put و Get در VBA

Writes data from a variable to a disk file.

نوشتن داده از یک متغیر یه یک فایل 

نوشتاری عبارت Put : 

Put [ # ] filenumber, [ recnumber ], varname

 طبق نوشتار بالا این عبارت سه قسمت دارد که شماره فایل ( 1 تا 255 ) و نام متغیر ضروری هستند و فقط شماره رکورد Optional یا می تواند خالی رها شود.

دیتا نوشته شده با Put معمولا با Get خوانده می شود

 رکورد یا بایت اول در یک فایل در موقعیت 1  ، رکورد یا بایت دوم در پوزیشن 2 و .... است . اگر recnumber را نادیده بگیرید( omit )  ، رکورد یا بایت بعدی بعد از آخرین عبارت یا دستور Get یا Put ، یا با آخرین تابع Seek اشاره شده  ، نوشته می شود. باید در جداکننده کاما قرار گیرند مثال : 

Put #1,,FileBuffer

برای فایل هایی که در حالت تصادفی یا Random Mode باز ( Open ) می شوند قوائد زیر اعمال می گردد : 

اگر طول دیتای در حال نوشتن کمتر از طول مشخص شده در عبارت Len دستور Open باشد ، Put رکوردهای بعدی را روی مرزهای طول رکورد می نویسد فضای بین پایان رکورد و ابتدای رکورد بعدی با محتویات موجود در بافر پر می شود. از آنجاییکه مقدار data padding را نمی توان با قطعیت پیدا کرد ، بطور کلی ایده خوبی است که طول رکورد با طول داده های نوشته شده مطابقت داشته باشد.اگر طول داده های نوشته شده بیشتر ازطول مشخص شده در عبارت Len دستور Open باشد ، خطائی رخ می دهد. اگر متغیری که نوشته می شود یک رشته بت طول متغیر باشد ، Put یک توصیفگر 2 بایتی می نویسد که شامل طول رشته و سپس متغیر است . طول رکورد مشخص شده توسط Len در دستور Open باید حداقل 2 بایت بیشتر از طول واقعی رشته باشد.... هر کاراکتر یک بایت است ( شامل ۷ یا ۸ بیت ).

 اگرمتغیری ( Variable ) که نوشته می شود یک Variant از نوع عددی باشد ( وقتی بعنوان واریانت مشخص می کنید تمام دیتا تایپ ها راشامل میشود حتی یک Variant نال هم می تواند باشد ولی آبجکت خیر )  Put  دو بایت می نویسد ( هرکاراکتر یک بایت )  که VarType را مشخص میکند و سپس متغیر را می نویسد. بعنوان مثال هنگام نوشتن یک Variant از VarType 3 دستور Put شش بایت می نویسد : دو بایت که با آن متغیر شناسایی می شود و  چهار بایت حاوی داده ( Long ) . طول رکورد مشخص شده توسط Len دستور Open باید حداقل دو بایت بیشتر از تعداد واقعی بایت های مورد نیاز برای ذخیره متغیر باشد.

اگر متغیری که نوشته می شود یک Variant از VarType 8 یا String  باشد ، Put دو بایت می نویسد که VarType را مشخص میکند ، دو بایت که طول رشته را مشخص میکند و سپس دیتا رشته ای را می نویسد. طول رکورد مشخص شده در Len دستور Open باید حداقل چهار بایت بیشتر از طول واقعی رشته باشد. ( VarType یا Variable Type که یک تابع است برای فهمیدن نوع داده متغیر )

برای فایل های باز شده در حالت باینری مثل اتصال به دستگاه از طریق USB ( باز کردن پورت مثل COM1 تا COMn) ، تمام قوائد Random اعمال می شود جز :

بند Len در دستور یا عبارت Open هیچ تاثیری ندارد.Put تمام متغیرها را بطور پیوسته روی دیسک می نویسد بدون Padding بین رکوردها. برای هر آرایه ای غیر از آرایه در یک نوع user-defined ( توسط کاربر مشخص شده ) Put فقط دیتا را می نویسد . هیچ توصیفی نوشته نمی شود. Put رشته هایی با طول-متغیر که جزئی از انواع user-defined نیست را بدون 2 بایت طول توصیفگر می نویسد. تعداد بایت های نوشته شده برابر تعداد کاراکترها در رشته است . برای مثال عبارتهای زیر 10 بایت به فایل شماره یک می نویسد.

VarString$ = String$(10," ")

Put #1,,VarString$ 

• می توان از دستورات  AT COMMAND در PUT برای ارسال به PORT استفاده کرد

Get [ # ] filenumber, [ recnumber ], varname

Reads data from an open disk file into a variable.

خواندن دیتا از یک فایل باز به یک متغیر

VarString = String(10," ")
Get #1,,VarString 

عبارت # Input برای خواندن دیتا :

varlist

Required. Comma-delimited list of variables that are assigned values read from the file—can't be an array or object variable. However, variables that describe an element of an array or user-defined type may be used.

شامل دو پارت است اولی نام فایل معتبر و دومی فهرست متغیرها که با کاما جدا می شوند( نمی تواند یک متغیر آرایه یا آبجکت باشد) البته متغیرهایی که اجزا یک آرایه یا یک نوع که توسط کاربر تعیین شده را توصیف میکند می تواند استفاده شود.

مثال زیر از عبارت # Input برای خواندن داده ها از یک فایل به دو متغیر استفاده می کند.این مثال فرض میکند  که TESTFILE یا فایل با چند خط داده است که با استفاده از عبارت # Write روی آن نوشته شده است . یعنی هر خط شامل یک رشته داخل کوتیشن ها و یک عدد است که با کاما از هم جدا شده اند.بعنوان مثال 234 , "Hello" .

'تعریف متغیر

Dim MyString, MyNumber

'باز کردن فایل برای گرفتن ورودی
Open "TESTFILE" For Input As #1 

'لوپ زدن تا انتهای فایل 
Do While Not EOF(1)

'خواندن داده در دو متغیر
Input #1, MyString, MyNumber 

'نمایش در محیط وی بی،  کنترل جی را بزنید

Debug.Print MyString, MyNumber 
'بستن فایل
Loop Close #1

مثالی دیگر از کاربرد دستور Put برای نوشتن در حالت Binary و  دستور input برای دریافت 

Open File in Binary Mode :
cmnd$ = cmnd$ + Chr(13)
Put #1, , cmnd$
answer = ""
char = Input(1, #1) 'get first char
While (char <> Chr(13))

DoEvents
If (char > Chr(31)) Then
answer = answer + char
Else
'Do what ever you like
End If
char = Input(1, #1) 'get the next character
Wend
Close #1
Cells(1, 1) = answer

کامند بالا تست نشده ولی به احتمال زیاد درست عمل میکند.

برای گرفتن دسیمال یونیکدها از AscW استفاده کنید و بعد به هگزا تبدیل کنید . تابع Oct هم که دسیمال را به اکتال می دهد. اگر Vba را تایپ کنید و بعد نقطه را وارد کنید لیست توابع را خواهید دید اگر زمانی اسم تابع فراموش شد کمکی به شما خواهد بود.

لطفا در نظر سنجی شرکت کنید

عبارت کدشده در اس ام اس چندپارتی در حالت PDU

در حالت (  Unicode  ( 16 bit 

0

1

2

3

4

5

6

7

8

9

A   معادل 10

B  معادل 11

C معادل   12

D معادل   13

E  معادل   14 

F  معادل   15

اگر شماره ی موبایل شامل + باشد قبل از شماره تلفن 91 و اگر نباشد 81 معکوس اعداد شماره ی موبایل دورقم دورقم فرضا شماره ی  موبایل [phone] میشود  900009000F1 چون رقم آخر تک رقم میشود بجایش F قرار میدهیم  چون کلا شمارش تعداد بایت  بر اساس دو رقم دورقم محاسبه میشود .  محاسبه ی  تعداد بایت  شماره ی موبایل فرضا  09009000001    اول با اضافه کردن 81 به شماره ی موبایل معکوس شده طبق گفته ی بالا☝   شمارش تعداد اعداد  شماره ی موبایل  و تبدیل به کد   طبق دستورالعمل ذیل 

Int(11/16)=0   و 11 منهای   int(11/16)*16  که میشود 11 و  معادل آن که B هست طبق اعداد ذکرشده در ا ول  یادداشت  و در آخر جوین کردن   0 و B  که  عبارت 0B81900009000F1  بدست می آید. چون شماره مرکز پیام مشخص نیست از عبارت 001100 در ارسال تکی و 005500 در ارسال چند پارتی استفاده می کنیم  و نتیجه برای ارسال پیامک چندپارتی درغالب یک پیامک ( حداکثر طول پیام 603 کاراکتر ) 

0041000B912374374521F7000808050003CC02020645