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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 98 7,229 12-04-17, 11:48 PM
آخر رد: MOSTAFA.KAMEL
  احتاج كود يظهر اسم المستخدم في الواجهات ramimohammed 4 175 29-03-17, 11:16 PM
آخر رد: ramimohammed
  [VB.NET] ظهور رساله لما ابغى اربط اكسس بالفجول بيسك a.baomar 3 108 11-03-17, 03:24 AM
آخر رد: khodor1985
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 4 236 25-02-17, 02:39 PM
آخر رد: Crazy_Vb.NeT
  طريقة ظهور اسم المستخدم في جميع صفحات الويب عباسة 0 145 14-02-17, 03:17 PM
آخر رد: عباسة
  منع المستخدم من التعديل على أكثر من معلومة في نفس الوقت اليوم مبتدئة وغداً محترفة 5 201 07-02-17, 08:35 PM
آخر رد: Amir_alzubidy
Photo ما هو كود عدم تطابق كلمة المرور السيد الجوهري 1 158 27-11-16, 04:37 PM
آخر رد: محمود بكرى
  [سؤال] جعل المستخدم يحدد عنوان اي بي السيرفر الذي عليه قاعدة البيانات thevirus 0 145 04-11-16, 10:38 AM
آخر رد: thevirus
  [VB.NET] صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم ali ahmed 1997 3 320 06-07-16, 07:45 AM
آخر رد: ali ahmed 1997
  [VB.NET] المستخدم يصمم تقريره بنفسه العواد الصغير 0 244 03-06-16, 08:49 AM
آخر رد: العواد الصغير

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


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