Microsoft.VisualBasic.Interaction.Beep()
using Microsoft.VisualBasic; using System.Media; SystemSounds.Beep.Play();
import java.util.Scanner;
class basic_cal
{
public static void main(String args[])
{
Scanner shim = new Scanner(System.in);
double first_number,second_number,answer;
System.out.println("Enter First Number : ");
first_number = shim.nextDouble();
System.out.println("Enter Second Number : ");
second_number = shim.nextDouble();
answer = first_number + second_number;
System.out.println("Answer : " + answer);
}
}
Okay now i saw that and got an idea to make the same thing with Joption , Joption is like the messagebox we have in c# and vb.net ok , this is the program i wrote :
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim data() As Byte = System.IO.File.ReadAllBytes(OpenFileDialog1.FileName)
RichTextBox1.Text = System.Text.Encoding.Unicode.GetString(data)
using Microsoft.Win32; using System.Collections;
Imports System.Text
Imports System.Security.Cryptography
Public Class 3_DES
Public Shared Function Encrypt(ByVal toEncrypt As String, ByVal key As String, ByVal useHashing As Boolean) As String
Dim keyArray As Byte()
Dim toEncryptArray As Byte() = UTF8Encoding.UTF8.GetBytes(toEncrypt)
If useHashing Then
Dim hashmd5 As New MD5CryptoServiceProvider()
keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(key))
Else
keyArray = UTF8Encoding.UTF8.GetBytes(key)
End If
Dim tdes As New TripleDESCryptoServiceProvider()
tdes.Key = keyArray
tdes.Mode = CipherMode.ECB
tdes.Padding = PaddingMode.PKCS7
Dim cTransform As ICryptoTransform = tdes.CreateEncryptor()
Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
Return Convert.ToBase64String(resultArray, 0, resultArray.Length)
End Function
End Class
