كود تشفير (اجتهاد من اخيكم سعود)

كود تشفير (اجتهاد من اخيكم سعود) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود تشفير (اجتهاد من اخيكم سعود) (/showthread.php?tid=8392)

كود تشفير (اجتهاد من اخيكم سعود) - سعود - 08-04-13

فكرت بطريقة مخصصة اغير فيها كلمة المرور قبل حفظها فاجتهدت حتى وجدت حل قد لا يكون مرضيا بمافيه الكفاية لكن المحاولة جيدة 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) & "'

كود تشفير (اجتهاد من اخيكم سعود) - ali.alfoly - 09-04-13

لا والله ممتاز ومتنساش اى مشروع كبير كان فى البداية مجرد فكرى

كود تشفير (اجتهاد من اخيكم سعود) - sooriaty03 - 09-04-13

السلام عليكم ورحمة الله وبركاته
ما شاء الله عليك أخي والله مبدع
جميلة الفكرة جدا
والله يوفقك

كود تشفير (اجتهاد من اخيكم سعود) - ... صدى ... - 10-04-13

السلام عليكم
ياريت اخي الكريم مثال للمبتدئين امثالي
جزاك الله خيرا

كود تشفير (اجتهاد من اخيكم سعود) - أبو يعقوب - 10-04-13

أعجبتني الطريقة

كود تشفير (اجتهاد من اخيكم سعود) - سعود - 11-04-13

بارك الله فيكم جميعا
اشكر لكم ردودكم الطيبة