تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود تشفير (اجتهاد من اخيكم سعود)
#1


فكرت بطريقة مخصصة اغير فيها كلمة المرور قبل حفظها فاجتهدت حتى وجدت حل قد لا يكون مرضيا بمافيه الكفاية لكن المحاولة جيدةSmile
هذه هي الدالة:
كود :
Function en(ByVal tp As String) As String
        Dim all As String = ""
        Dim txt As String = tp.Trim
        Dim mykey() As String = "1a2b3c4d5#e6f7g8h9i#10j11k12l#13m14n15o#16p17q18r1#9s20t2#1u22v23#w24x25y26#z".Split("#")
        Dim i As Integer = 0
        For Each t In txt
            all &= t & mykey(i)
            i += 1
        Next
        Return all
    End Function

ولاضافة كلمة المرور مشفرة
كود :
cm.Parameters.AddWithValue("@tpass", OleDbType.VarChar).Value = en(tpass.Text).Trim
وللاستعلام:
كود :
& "' and tpass='" & en(tpass.Text) & "'
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
لا والله ممتاز ومتنساش اى مشروع كبير كان فى البداية مجرد فكرى
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته
ما شاء الله عليك أخي والله مبدع
جميلة الفكرة جدا
والله يوفقك
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم
ياريت اخي الكريم مثال للمبتدئين امثالي
جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:
#5
أعجبتني الطريقة
الرد }}}}
تم الشكر بواسطة:
#6
بارك الله فيكم جميعا
اشكر لكم ردودكم الطيبة
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة في تشفير ملفات حسان محمد عابد 1 53 24-10-16, 10:28 PM
آخر رد: حسان محمد عابد
  [سؤال] بخصوص تشفير ملف txt Mohamed20 2 114 01-10-16, 03:18 AM
آخر رد: Mohamed20
  هل يمكن تشفير ملف xml Mohamed20 0 69 26-09-16, 05:49 AM
آخر رد: Mohamed20
  [VB.NET] تشفير الملفات النصىية txt yasob 1 149 29-07-16, 03:51 AM
آخر رد: سعود
  [VB.NET] اخي سعود فضلا وليس امرا بخصوص فكرتك للترجمة الفورمات 0theghost0 10 308 18-07-16, 06:23 PM
آخر رد: 0theghost0
Big Grin [VB.NET] مساعده فى فك تشفير مشروع ماسنجر oshankoty 7 310 16-04-16, 01:55 AM
آخر رد: derham
Exclamation [VB.NET] مسـاعدة بخـصوص تشفير اكـواد البرنامج 3asfa~mdmra 8 414 05-03-16, 06:29 PM
آخر رد: 3asfa~mdmra
  [سؤال] الخورزميات تشفير trojan pal 4 249 31-10-15, 02:36 AM
آخر رد: trojan pal
  طلب من الأخ " سعود " sniperjawadino 3 370 26-12-14, 03:41 PM
آخر رد: سعود
  هل ممكن تشفير الصور محاسب يوسف 0 357 27-11-14, 09:09 AM
آخر رد: محاسب يوسف

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم