منتديات كركوك تايمز

منتديات كركوك تايمز
 
الرئيسيةس .و .جالتسجيلدخول
أفضل 10 أعضاء في هذا المنتدى
فيــرو - 3141
 
شميران كركوكي - 2120
 
Rasti - 1769
 
zoba - 1578
 
كــاردينيــا - 1350
 
دمعة حزن - 579
 
A.O.J - 538
 
Aramos - 497
 
ديدار - 410
 
دانيار كوردى - 404
 
المواضيع الأخيرة
» استضافة مجانية مع دومين .com مجاني مدى الحياة
الخميس 10 ديسمبر 2015, 4:36 pm من طرف hayderaltimimi

» ليلى والخمسين حرامي .. بقلمي
الإثنين 09 نوفمبر 2015, 7:19 pm من طرف حجي تمساح

» شل c99 مع الشرح بالفيديو
الأربعاء 04 سبتمبر 2013, 4:56 pm من طرف فيــرو

» شل c99 مع الشرح بالفيديو
الأربعاء 04 سبتمبر 2013, 4:52 pm من طرف فيــرو

» ثغرة XSS
الثلاثاء 27 أغسطس 2013, 5:20 pm من طرف فيــرو

» موقع يقدم اخر الثغرات
السبت 24 أغسطس 2013, 7:04 am من طرف فيــرو

» ثغرة جديدة
السبت 24 أغسطس 2013, 7:01 am من طرف فيــرو

» برنامج الهجوم على المواقع
السبت 24 أغسطس 2013, 4:57 am من طرف فيــرو

عداد الزوار

hit counter

شاطر | 
 

 خوارزمية تشفير نص

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
فيــرو
مؤســـس منتديـــات كركوك تايمزمؤســـس منتديـــات كركوك تايمز
avatar
بيانات العضو
الجنس : ذكر
عدد المساهمات : 3141
نقاط : 42628
تاريخ التسجيل : 20/09/2009
العمر : 28

مُساهمةموضوع: خوارزمية تشفير نص   الأحد 15 نوفمبر 2009, 6:38 pm

السلام عليكم و رحمة الله و بركاته
حبيت اعطيكم طريقة من ابسط الطرق لتشفير نص صغير
اولا هذه الخوارزمية قد تكون فيها اخطاء لان الله و حده معصوم من الخطأ
اولا
Public Function crypter(str As String, key As String)
For x = 1 To Len(str)
str1 = str1 & Hex(Asc(Mid(str, x, 1)) - 5)
str1 = str1 & Asc(Mid(str, x, 1)) + 1
str1 = str1 & Asc(Mid(str, x, 1)) - (x Mod Len(key))
str1 = str1 & Asc(Mid(str, x, 1)) - (x Xor Len(key))
str1 = str1 & Asc(Mid(str, x, 1)) - (x Mod Len(key) Xor Len(key) + Len(key))
Next x
crypter = StrReverse(str1)
End Function
هذه دالة لتشفير النص
ثانيا نضع 2 TextBox
و نكتب
رمز:
Private Sub Text1_Change()
Text2.Text = crypter(Text1.Text)
End Sub

مثال بعد تشفير كلمة MrVisualBasic
هذه هي النتيجة
رمز:
379999001E538401396014689901401611E618097889C597499899D5093010019017686780989C5986011118110748701011611E657691016014616273878150999211511D60556678784

ارجوا انكم قد اعجبتكم الطريقة
توقيــع العضو فيــرو


يرحل من يرحل . . لن تهدم الدنيا .. ولن تغلق ابواب السماء
فأنا لا ألتفت ابدا للوراء... فالحب والصداقه لا يأتوا بالتوسل والرجاء
وغرور من امامي زادني كبرياء
....فإن كان وجودهم شيئا فإن كرامتي أشيااااء

الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://xp10.ahlamontada.com
Rasti
أدارةأدارة
avatar
بيانات العضو
الجنس : ذكر
عدد المساهمات : 1769
نقاط : 40151
تاريخ التسجيل : 20/09/2009
العمر : 30

مُساهمةموضوع: رد: خوارزمية تشفير نص   الإثنين 16 نوفمبر 2009, 5:36 pm

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

منور خيو شكرا للمعلومة
توقيــع العضو Rasti
الرجوع الى أعلى الصفحة اذهب الى الأسفل
شميران كركوكي
أدارةأدارة
avatar
بيانات العضو
الجنس : ذكر
عدد المساهمات : 2120
نقاط : 18432
تاريخ التسجيل : 23/09/2009
العمر : 29

مُساهمةموضوع: رد: خوارزمية تشفير نص   الخميس 02 سبتمبر 2010, 5:14 am

شكرا عاشت ايدك
توقيــع العضو شميران كركوكي



بیر له‌ زیان بكه‌وه‌ به‌لام خه‌فه‌تی بو مه‌خو
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 

خوارزمية تشفير نص

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات كركوك تايمز :: منتديات الكومبيوتر و الانترنيت :: منتدى لغات البرمجة-
a
انتقل الى: