Encrypt And Dencrypt در SQL و ارتباط با کمبوباکس

[پرستو پارسایی]

با سلام در حالت معمول با کد زیر اطلاعات رو از دیتابیس برای کمبو باکس دریافت میکنم و مشکلی نیست ولی اگر بخواهم اطلاعات رو Encrypt کنم و در دیتابیس ذخیره کنم ( که بدون مشکل انجام داده ام ) ، رو Dencrypt کنم و در کمبو باکس دریافت کنم با مشکل روبرو شدم ممنون میشم در صورت اطلاع نحوه صحیح دریافت اطلاعات در کمبو باکس رو راهنمایی بفرمایید . سپاسگزارم

 Private Sub Load_Cmb()

        Dim cn As New SqlConnection

        With cn

            .ConnectionString = Lbl1.Text

            .Open()

        End With

        Dim dt As New DataTable

        Dim da As New SqlDataAdapter("select User_N from TBL_Afra", cn)

        da.Fill(dt)

        If dt.Rows.Count > 0 Then

            With Cmb_User

                .Items.Clear()

                For i As Integer = 0 To dt.Rows.Count - 1

                    .Items.Add(dt.Rows(i).Item("User_N"))

                Next

                .Text = Nothing

                .SelectedIndex = -1

            End With

        End If

        With cn

            .Close()

            .Dispose()

        End With

[prolog96]

سلام
من برای گریدویو انجام دادم . بعد از باند کردن به گریدویو داخل بلوک گذاشتم و جواب داد . من برای شماره موبایل های داخل دیتابیس این کار را انجام دادم .
شما تست کنید ببینید برای کامبو باکس جواب میده

Try

            con.Open()

            SqlCom.ExecuteNonQuery()

            con.Close()

        Catch ex As Exception

            MsgBox("ERROR : " & ex.Message.ToString)

        Finally

            If con.State <> ConnectionState.Closed Then con.Close()

            If (Not SqlCom Is Nothing) Then SqlCom.Dispose()



            'این قسمت برای انکدینگ کردن و دوباره ریختن داخل گریدویو

            If intUserRowCount > 0 Then

                Dim j As Integer = intUserRowCount 'DataGridView1.RowCount - 2

                For f As Integer = 2 To 5

                    For i As Integer = 0 To j

                        Dim strMob As String = DataGridView1.Rows(i).Cells(f).Value

                        If IsDBNull(strMob) Or strMob = Nothing Or strMob = "" Then

                        ElseIf strMob <> Nothing Or strMob <> "" Then

                            Dim arrIdDomain() As Byte = Convert.FromBase64String(strMob)

                            strMob = System.Text.Encoding.ASCII.GetString(arrIdDomain)

                            DataGridView1.Rows(i).Cells(f).Value = strMob

                        End If

                    Next

                Next

            End If



        End Try

مطمئنا کارتون را راه میندازه. فقط یک کم باید کدها را تغییر بدید.
متغیر f میاد ستونهایی که نیازداریم را وارد حلقه میکنه .

[ROSTAM2]

سلام.
برای Encryption نیاز هست یک الگوریتم داشته باشه که این الگوریتم یک کلید داره و یک IV که بصورت بایت ایجاد می شه و بصورت پیشفرض متغیر هست و باید ذخیره بشه و سوال اینجاست که کلید و IV باید کجا ذخیره بشن که امنیت کامل حفظ بشه؟! تو دیتابیس یا توی کدنویسی برنامه بصورت یک ثابت؟!

[پرستو پارسایی]

سلام از پاسخ شما سپاسگزارم در مورد Encyption مشکلی ندارم برای Dencypt هم برای هر آیتم در تکست باکس یا لیبل براحتی کار میکنه , ,ولی اینکه کل آیتم ها رو Dencrypt شده در کمبوباکس Add کنم به مشکل خوردم ، lV و کلید بصورت کد نویسی و ثابت هستند . روی کد شما تست میکنم و نتیجه رو اطلاع میدم .سپاس

[prolog96]

سلام
من برای Encryption از کد زیر استفاده میکنم . بدون کلید

Dim strMobail As String = Convert.ToBase64String(System.Text.Encoding.ASCII.  GetBytes(TxtBxMobail.Text))

,ولی اینکه کل آیتم ها رو Dencrypt شده در کمبوباکس Add کنم به مشکل خوردم

برای این مورد از همون روشی که گفتم ، فکر کنم انجام بشه . من که برای گریدویو انجام دادم و جواب داد.

حالا خودم هم برای کامبوباکس امتحان میکنم . خبر میدم.

موفق باشید

[prolog96]

سلام

به این روش تونستم با کامبوباکس هم اجرا بشه

Dim strSql As String = "SELECT IdLandowner, mobail, TellHome, TellOffice, TellSyntax FROM TblEstLandowner ORDER BY IdLandowner"

        Dim SqlCom As SqlCommand

        SqlCom = New SqlCommand(strSql, con)

        SqlCom.CommandType = Data.CommandType.Text

        Dim Dta As SqlDataAdapter = Nothing

        Dim Dsa As DataSet



        Try

            If con.State <> ConnectionState.Open Then

                con.Open()

                End If

            SqlCom.ExecuteNonQuery()

            Dta = New SqlDataAdapter(SqlCom)

            Dsa = New DataSet

            Dta.Fill(Dsa, "TblEstLandowner")

            CmbBxSMobil.DataSource = Dsa.Tables(0).DefaultView

            CmbBxSMobil.DisplayMember = "mobail"

            CmbBxSMobil.ValueMember = "IdLandowner"

            CmbBxSMobil.DataBindings.Clear()

            CmbBxSMobil.DataBindings.Add(New Binding("datasource", Dsa, "TblEstLandowner"))

            con.Close()

        Finally

            If (Not SqlCom Is Nothing) Then SqlCom.Dispose()

            If con.State <> ConnectionState.Closed Then con.Close()



            Dim intRowCount As UInteger = Dsa.Tables(0).Rows.Count - 1

            Label9.Text = intRowCount

            If intRowCount > 0 Then

                ' For f As Integer = 1 '2 To 5

                For i As Integer = 0 To intRowCount

                    Dim strMob As String = Dsa.Tables(0).Rows(i).Item(1)

                    If IsDBNull(strMob) Or strMob = Nothing Or strMob = "" Then

                    ElseIf strMob <> Nothing Or strMob <> "" Then

                        Dim arrIdDomain() As Byte = Convert.FromBase64String(strMob)

                        strMob = System.Text.Encoding.ASCII.GetString(arrIdDomain)

                        Dsa.Tables(0).Rows(i).Item(1) = strMob

                    End If

                Next

                ' Next

            End If



            End Try

[Mahmoud.Afrad]

سلام
من برای Encryption از کد زیر استفاده میکنم . بدون کلید

Dim strMobail As String = Convert.ToBase64String(System.Text.Encoding.ASCII.  GetBytes(TxtBxMobail.Text))

برای این مورد از همون روشی که گفتم ، فکر کنم انجام بشه . من که برای گریدویو انجام دادم و جواب داد.

حالا خودم هم برای کامبوباکس امتحان میکنم . خبر میدم.

موفق باشید

البته اینی که شما نوشتی encryption نیست و هر کسی میتونه اونو به حالت اول برگردونه.

[prolog96]

البته اینی که شما نوشتی encryption نیست و هر کسی میتونه اونو به حالت اول برگردونه.

سلام
پیشنهاد شما چی هست؟
یه راه حل بهتر بگید

ممنون

[پرستو پارسایی]

از دوستان بخاطر توجه شما به موضوع این تاپیک سپاسگزارم ولی Dencrytion در کمبوباکس کماکان بی نتیجه بود
نمونه ای نزدیک به کدی که من استفاده میکنم برای Encription And Dencryption

Private Function Encrypt(ByVal clearText As String) As String  

  Dim EncryptionKey As String ="MAKV2SPBNI99212"

    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(ms, encryptor.CreateEncryptor(), CryptoStreamMode.Write)

                cs.Write(clearBytes, 0, clearBytes.Length)

                cs.Close()

            End Using

            clearText = Convert.ToBase64String(ms.ToArray())

        End Using

    End Using

    Return clearText

End Function





Private Function Decrypt(ByVal cipherText As String) As String

    Dim EncryptionKey As String ="MAKV2SPBNI99212"

    Dim cipherBytes() As Byte = Convert.FromBase64String(cipherText)

    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(ms, encryptor.CreateDecryptor(), CryptoStreamMode.Write)

                cs.Write(cipherBytes, 0, cipherBytes.Length)

                cs.Close()

            End Using

            cipherText = Encoding.Unicode.GetString(ms.ToArray())

        End Using

    End Using

    Return cipherText

End Function

[prolog96]

سلام
ممنون

اما به MemoryStream ارور میده . چه کتابخانه ای را ایمپورت میکنید ؟

[پرستو پارسایی]

Imports System.Security.Cryptography

[prolog96]

Imports System.Security.Cryptography

سپاسگزارم از شما . ممنون
این را داشتم توی فایلم . اما

برای خواندن و نوشتن در فایل ها و کار با فایل ها در VB.NET و C#‎.NET

Streamها ابزاری برای خواندن و نوشتن در دیسک و نیز ارتباطات بین شبکه ای هستند.

کتابخانه ش هم اینه
Imports System.IO
باید اضافه کنیم

[prolog96]

سلام

از دوستان بخاطر توجه شما به موضوع این تاپیک سپاسگزارم ولی Dencrytion در کمبوباکس کماکان بی نتیجه بود
نمونه ای نزدیک به کدی که من استفاده میکنم برای Encription And Dencryption

من با کدهای شما شماره تلفن ها را کد کردم و با روش که توی پست 6 همین تاپیک که براتون فرستادم دیکد کردم و شماره ها را تو کامبوباکس درست نشون میده

[ROSTAM2]

سلام.
در زمان Decryption برای CryptoStream پارامتر CryptoStreamMode باید Read باشه نه Write.

Untitled.jpg

[پرستو پارسایی]

prolog96 گرامی اگر امکان داره کد اصلاح شده رو که تست کردید اشتراک بگذارید . و آیا شما در کمبوباکس کل شماره تلفن ها رو Dencrypt کرده اید یا یک شماره در کمبوباکس Add کردید سپاس

[prolog96]

prolog96 گرامی اگر امکان داره کد اصلاح شده رو که تست کردید اشتراک بگذارید . و آیا شما در کمبوباکس کل شماره تلفن ها رو Dencrypt کرده اید یا یک شماره در کمبوباکس Add کردید سپاس

سلام

یک نمونه برای کامبوباکس گذاشتم. خدمت شما
در کدها توضیحات را نوشتم
فیلدهای که باید برای شماره تماس ها بسازید همه را NVarChar, 50 انتخاب کنید .
1.jpg2.jpg
عکس های قبل و بعد را هم گذاشتم .