تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف اضع لمستخدم رساله في حال اسم المستخدم وكلمة المرور غير صيحه ؟؟
#1
Question 
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اضع  لمستخدم رساله في حال اسم المستخدم وكلمة المرور غير صيحه ؟؟
نامل من الله المساعدة  في برنامجي المرفق والله يحفظكم ويرعاكم
 تحياتي[attachment=11443]


الملفات المرفقة
.rar   pass.rar (الحجم : 77.25 ك ب / التحميلات : 19)

الرد }}}}
تم الشكر بواسطة:
#2
تابع هذا الدرس
https://www.youtube.com/watch?v=CP4REs-nQ_0
أساتذتي الكرام
Heart أبوعمر/ سعود/ممدوح الخطيب Heart
شكرا لكم
الرد }}}}
تم الشكر بواسطة: سعود , Microformt
#3
PHP كود :
Imports System.Data.OleDb
Imports System
.IO
Imports System
.Security.Cryptography
Imports System
.Text

Public Class Form1
    Dim con 
As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=db1.mdb")

 
   Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        
'Dim db As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb")
        '
Dim rs As New OleDbDataAdapter()
 
       'Dim da As New OleDbDataAdapter("select * from noop Where Name='" & Trim(TextBox1.Text) & "' and pass='" & Trim(TextBox1.Text) & "' ", db)
        '
MsgBox("تم الدخول الى النظام")

 
       Using cm = New OleDbCommand(""con)
 
           cm.CommandText "select count(name) from noop where name=@name and pass=@pass"
 
           cm.Parameters.AddWithValue("@name"TextBox1.Text)
 
           cm.Parameters.AddWithValue("@pass"Encrypt(TextBox2.Text"thekey")) 'يجب ان تكون حفظ كلمة المرور باستخدام هذا التشفير
            If con.State = ConnectionState.Closed Then con.Open()
            If cm.ExecuteScalar <= 0 Then
                MsgBox("Nothing Found", MsgBoxStyle.Critical, "")
            Else
                MsgBox("Now Welcome Back", MsgBoxStyle.Information, "")
            End If
        End Using

    End Sub
    Public Function Encrypt(clearText As String, EncryptionKey As String) As String
        ' 
string EncryptionKey "abc123";
 
       Dim clearBytes As Byte() = Encoding.Unicode.GetBytes(clearText)
 
       Using encryptor As Aes Aes.Create()
 
           Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D,
 
                   &H65, &H64, &H76, &H65, &H64, &H65,
 
                   &H76})
 
           encryptor.Key pdb.GetBytes(32)
 
           encryptor.IV pdb.GetBytes(16)
 
           Using ms As New MemoryStream()
 
               Using cs As New CryptoStream(msencryptor.CreateEncryptor(), CryptoStreamMode.Write)
 
                   cs.Write(clearBytes0clearBytes.Length)
 
                   cs.Close()
 
               End Using
                clearText 
Convert.ToBase64String(ms.ToArray())
 
           End Using
        End Using
        Return clearText
    End 
Function

 
   Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        Using cm 
= New OleDbCommand(""con)
 
           cm.CommandText "insert into noop(name,pass) values(@name,@pass)"
 
           cm.Parameters.AddWithValue("@name"TextBox1.Text)
 
           cm.Parameters.AddWithValue("@pass"Encrypt(TextBox2.Text"thekey")) 'يجب ان تكون حفظ كلمة المرور باستخدام هذا التشفير
            If con.State = ConnectionState.Closed Then con.Open()
            Try
                cm.ExecuteNonQuery()
                MsgBox("Saved!")
            Catch ex As Exception
                MsgBox(Err.Description, MsgBoxStyle.Critical, "")
            End Try
        End Using
    End Sub
End Class 
عدلت على المثال وهذا الكلاس
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: جميل علي , Microformt , الكاتب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo ما هو كود عدم تطابق كلمة المرور السيد الجوهري 1 49 27-11-16, 04:37 PM
آخر رد: محمود بكرى
  كيفيه تشغيل الفورم بالتاريخ الذي يحدده المستخدم ddemed 5 137 23-11-16, 10:12 PM
آخر رد: السرور
  [سؤال] جعل المستخدم يحدد عنوان اي بي السيرفر الذي عليه قاعدة البيانات thevirus 0 58 04-11-16, 10:38 AM
آخر رد: thevirus
  [VB.NET] صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم ali ahmed 1997 3 159 06-07-16, 07:45 AM
آخر رد: ali ahmed 1997
  [VB.NET] المستخدم يصمم تقريره بنفسه العواد الصغير 0 138 03-06-16, 08:49 AM
آخر رد: العواد الصغير
  كود اسم المستخدم hglogtd 3 207 28-05-16, 02:21 AM
آخر رد: khodor1985
  [سؤال] سؤال بسيط بخصوص حفظ كلمات المرور salahmax12 1 206 15-05-16, 05:05 PM
آخر رد: CLARO
  [VB.NET] عمل رساله تاكيد للحذف رومنس الشوق 2 222 01-04-16, 11:08 PM
آخر رد: رومنس الشوق
  [VB.NET] شباب عند برمجة كود اعادة الترقيم تظهر لى رساله احمد عبد الحكيم 1 462 08-02-16, 08:22 PM
آخر رد: احمد عبد الحكيم
  [سؤال] تغيير عنوان رساله التنبية نسيم الترك1 2 247 10-01-16, 09:47 PM
آخر رد: نسيم الترك1

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


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