تقييم الموضوع :
  • 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
بارك الله فيكم جميعا
اشكر لكم ردودكم الطيبة
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة بخصوص تشفير ملف exe OakenShield 1 61 18-05-17, 11:27 AM
آخر رد: OakenShield
  [سؤال] تشفير ملف XML sika1976 0 178 07-12-16, 03:37 PM
آخر رد: sika1976
  [سؤال] مساعدة في تشفير ملفات حسان محمد عابد 1 194 24-10-16, 10:28 PM
آخر رد: حسان محمد عابد
  [سؤال] بخصوص تشفير ملف txt Mohamed20 2 288 01-10-16, 03:18 AM
آخر رد: Mohamed20
  هل يمكن تشفير ملف xml Mohamed20 0 213 26-09-16, 05:49 AM
آخر رد: Mohamed20
  [VB.NET] تشفير الملفات النصىية txt yasob 1 301 29-07-16, 03:51 AM
آخر رد: سعود
  [VB.NET] اخي سعود فضلا وليس امرا بخصوص فكرتك للترجمة الفورمات 0theghost0 10 505 18-07-16, 06:23 PM
آخر رد: 0theghost0
Big Grin [VB.NET] مساعده فى فك تشفير مشروع ماسنجر oshankoty 7 492 16-04-16, 01:55 AM
آخر رد: derham
Exclamation [VB.NET] مسـاعدة بخـصوص تشفير اكـواد البرنامج 3asfa~mdmra 8 854 05-03-16, 06:29 PM
آخر رد: 3asfa~mdmra
  [سؤال] الخورزميات تشفير trojan pal 4 401 31-10-15, 02:36 AM
آخر رد: trojan pal

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


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