طلب تحويل شيفرة ارقام الى حروف

[kanory]

السلام عليكم ورحمة الله

اخواني في المنتدي ...... بارك الله فيكم وفي اوقاتكم ... وجدت البرنامج المرفق في الموضوع وهو يقوم بتحويل النصوص الى شيقرة أرقام .... طلبي هو العكس تحويل شيفرة الارقام إلى حروف بارك الله فيكم .

kanory.rar

[أمير2008]

وعليكم السلام ورحمة الله

فكرة جميلة

لكن واضحة المعالم

يعني هذا ليس بتشفير

هو تحويل واضح ومفضوح

Chrw ("97") ...c

من النظرة الأولى هذا حرف a  الذي كود أسكي له 97

أقترح تلغي الحروف

CHrw

والأوقواس وعلامات التنصيص وتقوم بادخال رموز وأرقام عشوائية بدلا منها

وعند الاسترجاع أو فك التشفير فإنه يتم تمييز ما هو غير عشوائي لكي يتحول إلى الحرف الأصلي

 

للالالبا بلا لالابلا بلا لابلابلبلبلا

منلال

من

 

[kanory]

اولا . شكرا لكم جميعا اعضاء المنتدى الحبيب . والشكر موصول لك اخي امير . وكلامك صحيح ميه في الميه . لكن انا لم اقصد تشفير البيانات عن اعين الاخرين ولك هذا التشفير حتى يتم قراءته من داخل الكود للاجهزة وخاصة للغة العربية ... وما اريده هو ان بعض البرامج التي صممتها كانت تحوي هذه الارقام وفي اكواد عديدة . وانا الان اريد معرفة ما تحويه تلك الاكواد من اسماء نماذج وجداول واستعلامات وغيرها 

فلذلك احتاج تحويل ارقام الاسكي الى حروف لسعة معرفة ما تشير اليه .

ثانيا . اشكرك مره اخرى اخي امير

[أمير2008]

أوك

لا بأس 

زادك الله علما وأدبا

جرب المرفق

encode_decode_letters.rar

[kanory]

بارك الله فيك أخي أمير 

بالفعل هذا ما اريد ........ زادك الله من بحور العلم .... جزاك الله خيرا ونفع بعلمكم

[أمير2008]

طيب شوف التعديل :

تكويد جملة :

"منتدى أوفيسنا" 

Chrw ("1605") & Chrw ("1606") & Chrw ("1578") & Chrw ("1583") & Chrw ("1609") & Chrw ("32") & Chrw ("1571") & Chrw ("1608") & Chrw ("1601") & Chrw ("1610") & Chrw ("1587") & Chrw ("1610") & Chrw ("1606") & Chrw ("1575") 

تحول إلى :

Cï1ëh¤2ûb3d ô1605ôg4& Cï1ëh¤2ûb3d ô1606ôg4& Cï1ëh¤2ûb3d ô1578ôg4& Cï1ëh¤2ûb3d ô1583ôg4& Cï1ëh¤2ûb3d ô1609ôg4& Cï1ëh¤2ûb3d ô32ôg4& Cï1ëh¤2ûb3d ô1571ôg4& Cï1ëh¤2ûb3d ô1608ôg4& Cï1ëh¤2ûb3d ô1601ôg4& Cï1ëh¤2ûb3d ô1610ôg4& Cï1ëh¤2ûb3d ô1587ôg4& Cï1ëh¤2ûb3d ô1606ôg4& Cï1ëh¤2ûb3d ô1575ôg4

كما بالمرفق

وتقدر تستعيد الجملة الأصلية طبعا

encode_decode_letters 2.rar

[kanory]

حبه حبه علينا يا أمير .... ولك من اسمك نصيب 

 

لكن ماذا لوكان الكود بدون علامة تنصيص ..... شاهد المرفق

kanory.rar

[أمير2008]

3 ساعات مضت, kanory said:

حبه حبه علينا يا أمير ....

لا لا

لا رحمة ولا شفقة بعد اليوم

ههههه

3 ساعات مضت, kanory said:

لكن ماذا لوكان الكود بدون علامة تنصيص ..... شاهد المرفق

kanory.rar

يا باشا حتى ولو وضعت بالكود نصف كيلو لحمة

هههههههه معلش أصل اللحوم  غالية اليومين دول

سيعمل أيضا كالتالي :

Private Sub Command11_Click()
If IsNull(txts) Then
MsgBox "مربع النص خالي"
Exit Sub
End If
Loopy = (CDbl(Len([txts]) - Len(Replace([txts], ")", ""))))
txtx = ""
c0 = 1
Do
c1 = Nz(InStr(c0 + 1, Me.txts, "("), 0)
c2 = Nz(InStr(c1 + 1, Me.txts, ")"), 0)
c3 = c2 - c1
If c1 <> 0 And c2 <> 0 Then c4 = Mid(Me.txts, c1 + 1, c3 - 1)
Loopy = Loopy - 1
c0 = c2
Me.txtx = Me.txtx + CHARW(c4)
Loop Until Loopy = 0
End Sub

بس طبعا لو اللحمة زادت ممكن الكود يتعطل

 

[kanory]

هههه ..... زادت اللحمه ...... 
جزاك الله خيرا ..... تم المطلوب ... الله يكتب ذلك في ميزان حسناتك . أخي أمير .....