String_2

Module Module1
    Dim s1, s2, c1, sf As String
    Dim n1, n2, e As Integer
    Sub Main()

        'Leitura das duas strings
        Console.Write("Digite a 1a String(Código encriptado): ")
        s1 = Console.ReadLine()
        Console.Write("Digite a 2a String(Chave para desencriptar): ")
        s2 = Console.ReadLine()
         'Inicialização da string final. String vazia.
        sf = ""

        'Encontra o tamanho das strings

        n1 = Len(s1)
        n2 = Len(s2)
        'Ciclo que retira caracter a caracter da 1ª string e verifica se este existe na segunda.
        For i = 1 To n1
            c1 = Mid(s1, i, 1)
            e = InStr(s2, c1)
            If e = 0 Then
                sf = sf + c1
            End If
        Next

        'Saida de resultados
        Console.WriteLine("A mensagem é: " & sf)
        Console.ReadLine()

    End Sub

End Module