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


الملفات المرفقة
.rar   pass.rar (الحجم : 77.25 ك ب / التحميلات : 28)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#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 , الكاتب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يطلع رساله ( انه فيه خطأ ) اتمني دعمك "visual basic 2015 ", اسعدكم الله Abdulhadi 8 109 01-10-17, 09:13 AM
آخر رد: Abdulhadi
  رساله الي الاستاذ الفاضل mstfa 1991 khaled12345 1 121 20-07-17, 09:51 PM
آخر رد: Amir_alzubidy
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 98 8,077 12-04-17, 11:48 PM
آخر رد: MOSTAFA.KAMEL
  احتاج كود يظهر اسم المستخدم في الواجهات ramimohammed 4 336 29-03-17, 11:16 PM
آخر رد: ramimohammed
  [VB.NET] ظهور رساله لما ابغى اربط اكسس بالفجول بيسك a.baomar 3 193 11-03-17, 03:24 AM
آخر رد: khodor1985
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 4 367 25-02-17, 02:39 PM
آخر رد: Crazy_Vb.NeT
  طريقة ظهور اسم المستخدم في جميع صفحات الويب عباسة 0 235 14-02-17, 03:17 PM
آخر رد: عباسة
  منع المستخدم من التعديل على أكثر من معلومة في نفس الوقت اليوم مبتدئة وغداً محترفة 5 327 07-02-17, 08:35 PM
آخر رد: Amir_alzubidy
Photo ما هو كود عدم تطابق كلمة المرور السيد الجوهري 1 239 27-11-16, 04:37 PM
آخر رد: محمود بكرى
  [سؤال] جعل المستخدم يحدد عنوان اي بي السيرفر الذي عليه قاعدة البيانات thevirus 0 224 04-11-16, 10:38 AM
آخر رد: thevirus

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


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