تقييم الموضوع :
  • 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 , الكاتب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 4 123 أمس, 02:39 PM
آخر رد: Crazy_Vb.NeT
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 96 6,252 أمس, 04:03 AM
آخر رد: khodor1985
  طريقة ظهور اسم المستخدم في جميع صفحات الويب عباسة 0 81 14-02-17, 03:17 PM
آخر رد: عباسة
  منع المستخدم من التعديل على أكثر من معلومة في نفس الوقت اليوم مبتدئة وغداً محترفة 5 115 07-02-17, 08:35 PM
آخر رد: Amir_alzubidy
Photo ما هو كود عدم تطابق كلمة المرور السيد الجوهري 1 85 27-11-16, 04:37 PM
آخر رد: محمود بكرى
  [سؤال] جعل المستخدم يحدد عنوان اي بي السيرفر الذي عليه قاعدة البيانات thevirus 0 104 04-11-16, 10:38 AM
آخر رد: thevirus
  [VB.NET] صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم ali ahmed 1997 3 240 06-07-16, 07:45 AM
آخر رد: ali ahmed 1997
  [VB.NET] المستخدم يصمم تقريره بنفسه العواد الصغير 0 185 03-06-16, 08:49 AM
آخر رد: العواد الصغير
  كود اسم المستخدم hglogtd 3 303 28-05-16, 02:21 AM
آخر رد: khodor1985
  [سؤال] سؤال بسيط بخصوص حفظ كلمات المرور salahmax12 1 265 15-05-16, 05:05 PM
آخر رد: CLARO

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


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