can anyone help me convert this code to vba ? zenit polar
char[] zenit = { 'z', 'e', 'n','i','t' };
char[] polar = { 'p', 'o', 'l', 'a', 'r' };
Console.WriteLine("Digite uma frase para ser Criptografada (zenit polar):");
string txt = Console.ReadLine();
txt = txt.ToLower();
char[] letra = txt.ToCharArray();
Console.WriteLine("Sua frase criptografada fica: ");
for (int i = 0; i < txt.Length; i++)
{
for (int x = 0; x < zenit.Length; x++)
{
if (letra == zenit[x])
letra = polar[x];
else if (letra == polar[x])
letra = zenit[x];
}
Console.Write(letra);
}
Console.WriteLine("\n" + "Sua frase Descriptografada: ");
for (int i = 0; i < txt.Length; i++)
{
for (int x = 0; x < zenit.Length; x++)
{
if (letra == zenit[x])
letra = polar[x];
else if (letra == polar[x])
letra = zenit[x];
}
Console.Write(letra);
}
Console.ReadKey();
char[] zenit = { 'z', 'e', 'n','i','t' };
char[] polar = { 'p', 'o', 'l', 'a', 'r' };
Console.WriteLine("Digite uma frase para ser Criptografada (zenit polar):");
string txt = Console.ReadLine();
txt = txt.ToLower();
char[] letra = txt.ToCharArray();
Console.WriteLine("Sua frase criptografada fica: ");
for (int i = 0; i < txt.Length; i++)
{
for (int x = 0; x < zenit.Length; x++)
{
if (letra == zenit[x])
letra = polar[x];
else if (letra == polar[x])
letra = zenit[x];
}
Console.Write(letra);
}
Console.WriteLine("\n" + "Sua frase Descriptografada: ");
for (int i = 0; i < txt.Length; i++)
{
for (int x = 0; x < zenit.Length; x++)
{
if (letra == zenit[x])
letra = polar[x];
else if (letra == polar[x])
letra = zenit[x];
}
Console.Write(letra);
}
Console.ReadKey();