frmenskripsi.vb

来自「This is a Text Editor Created USing VB.n」· VB 代码 · 共 39 行

Public Class frmEnskripsi
    Dim hasil As String = ""

    Public Function Run(ByVal txtToProses As String, Optional ByVal isEnkripsi As Boolean = True) As String
        If isEnkripsi = True Then
            chkEnskripsi.Checked = True
        Else
            chkEnskripsi.Checked = False
        End If

        txtBefore.Text = txtToProses
        txtPassword.Select()
        Me.ShowDialog()
        Return hasil
    End Function

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Dim enskrip As New clsEnskripsi
        If chkEnskripsi.Checked = True Then
            If radDES.Checked = True Then txtAfter.Text = enskrip.Enskrip(txtBefore.Text, txtPassword.Text, clsEnskripsi.MetodeEnskripsi.DES)
            If radRC2.Checked = True Then txtAfter.Text = enskrip.Enskrip(txtBefore.Text, txtPassword.Text, clsEnskripsi.MetodeEnskripsi.RC2)
            If radRijndael.Checked = True Then txtAfter.Text = enskrip.Enskrip(txtBefore.Text, txtPassword.Text, clsEnskripsi.MetodeEnskripsi.Rijndael)
        Else
            If radDES.Checked = True Then txtAfter.Text = enskrip.Deskrip(txtBefore.Text, txtPassword.Text, clsEnskripsi.MetodeEnskripsi.DES)
            If radRC2.Checked = True Then txtAfter.Text = enskrip.Deskrip(txtBefore.Text, txtPassword.Text, clsEnskripsi.MetodeEnskripsi.RC2)
            If radRijndael.Checked = True Then txtAfter.Text = enskrip.Deskrip(txtBefore.Text, txtPassword.Text, clsEnskripsi.MetodeEnskripsi.Rijndael)
        End If
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        hasil = txtAfter.Text
        Me.Close()
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

End Class