cryptography encryption and decryption program

Buatlah form seperti gambar di atas dan isikan perintah di bawah ini ke dalam formnya :


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim encrypt As String = "" 'mendeklarasi variable
        Dim isi As Char 'mendeklarasi variable
        Dim i, charsInFile As Short 'mendeklarasi variable bisa menggunakan apa saja yang anda inginkan

        SaveFileDialog1.Filter = "Text file |*.txt" 'menyimpan file kepada notepad
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then 'akan menampilkan pesan dialog ketika kita menyimpan
            Try
                charsInFile = TextBox1.Text.Length '

                For i = 0 To charsInFile - 1 '
                    isi = TextBox1.Text.Substring(i, 1)
                    encrypt = encrypt & Chr(Asc(isi) + 13) 'melakukan encrypsi dan decrypsi Rot 13

                Next
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, encrypt, False) 'melakukan penulisan pesan yang akan di enkripsi dan disimpan pada notepad
                TextBox1.Text = encrypt '
                TextBox1.Select(0, 0)

            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Information, "error") 'menampilkan pesan error ketika ada kesalahan
            End Try
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim tulisan As String
        Dim i, charsInFile As Short
        Dim isi As Char
        Dim decrypt As String = ""

        OpenFileDialog1.Filter = "Text file |*.txt" 'membuka file yang telah di simpan
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 'pesan dialog ketika kita hendak membuka file yang di simpan tadi
            If My.Computer.FileSystem.FileExists(OpenFileDialog1.FileName) Then
                Try
                    tulisan = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
                    charsInFile = tulisan.Length

                    For i = 0 To charsInFile - 1
                        isi = tulisan.Substring(i, 1)
                        decrypt = decrypt & Chr(Asc(isi) - 13)
                    Next i

                    TextBox1.Text = decrypt
                    TextBox1.Select(0, 0)

                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Information)
                End Try
            End If
        End If
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = ""
    End Sub
End Class

Read More

Membuat gambar dengan java

import java.awt.*;
import javax.swing.*;
import java.awt.event.*;

public class KnvsDanBo extends Canvas {
    @Override
    public void paint(Graphics rs){
    rs.setColor(Color.blue);
    rs.drawLine(80, 20, 80, 70);
    rs.drawLine(130, 20, 130, 70);
    rs.drawLine(80, 20, 130, 20);
    rs.drawLine(80, 70, 130, 70);
 
    rs.drawLine(60, 80, 150, 80);
    rs.drawLine(60, 180, 150, 180);
    rs.drawLine(60, 80, 60, 180);
    rs.drawLine(150, 80, 150, 180);
 
    rs.drawLine(70, 190, 70, 250);
    rs.drawLine(90, 190, 90, 250);
    rs.drawLine(120, 190, 120, 250);
    rs.drawLine(140, 190, 140, 250);
    rs.drawLine(70, 190, 90, 190);
    rs.drawLine(70, 250, 90, 250);
    rs.drawLine(120, 190, 140, 190);
    rs.drawLine(120, 250, 140, 250);
 
    rs.drawLine(30, 90, 50, 90);
    rs.drawLine(30, 140, 50, 140);
    rs.drawLine(30, 90, 30, 140);
    rs.drawLine(50, 90, 50, 140);
 
    rs.drawLine(160, 90, 180, 90);
    rs.drawLine(160, 140, 180, 140);
    rs.drawLine(160, 90, 160, 140);
    rs.drawLine(180, 90, 180, 140);
 
    rs.drawLine(90, 30, 100, 30);
    rs.drawLine(90, 40, 100, 40);
    rs.drawLine(90, 30, 90, 40);
    rs.drawLine(100, 30, 100, 40);
 
    rs.drawLine(110, 30, 120, 30);
    rs.drawLine(110, 40, 120, 40);
    rs.drawLine(110, 30, 110, 40);
    rs.drawLine(120, 30, 120, 40);
 
    rs.drawLine(100, 50, 110, 50);
 
    }
}
class Gambar extends JFrame{
KnvsDanBo gambar=new KnvsDanBo();

Gambar(){
super("REFSA");
setLocation(100,100);
setSize(230,300);
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
komponenVisual();
}
void komponenVisual(){
getContentPane().setLayout(new GridLayout());
getContentPane().add(gambar,"Center");
setVisible(true);
}
public static void main(String[]args){
    Gambar ch=new Gambar();
}
}

Read More