Pesquisar na Comunidade
Mostrando resultados para as tags ''cifra''.
Encontrado 2 registros
-
c Exemplo de apps que utilizam criptografia XOR
kaos1478 postou um tópico no fórum em Dúvidas & Ajuda
Bom dia/tarde/noite galera, Venho por meio desta pedir ajuda de vcs pois estou realizando um trabalho para faculdade e necessito encontrar 4 exemplos de aplicativos que utilizam a criptografia XOR e entre os 4 ao menos 2 tem que utilizar a linguagem de programação C. Já pesquisei e muito, porem não obtive sucesso... Agradeço e peço desculpas caso eu tenha postado na área errada.- 7 respostas
-
- 1
-
-
- cifra
- cifra ou-exclusivo
- (e 7 mais)
-
[Hidden Content] Váriaveis globais declaradas: Dim texto As String = "" 'Váriavel que pega o que está escrito no tbTexto Dim resultado As String = "" 'Variavel que guardará o texto gerado Dim auxiliar As Integer = 0 'Váriavel que guardará o Asci do Caracter Código do botão CRIPTOGRAFAR texto = tbTexto.Text 'Passa oque está no textbox para variavel texto Try 'Tratamento de erro For i As Integer = 0 To texto.Length - 1 'Loop que percorrará a string inteira do texto auxiliar = Asc(texto(i)) 'Pega o número Asc do Caracter If (auxiliar >= 65 And auxiliar <= 90) Then 'Se o caracter for MAISCULO auxiliar = auxiliar + tbKey.Text ' Soma o Asc com a Chave digitada If (auxiliar > 90) Then ' Se a conversão passar do Z auxiliar = auxiliar - 26 'Volta para o Inicio do alfabeto End If resultado = resultado + Chr(auxiliar) 'Salva o caracter convertido na nova string ElseIf (auxiliar >= 97 And auxiliar <= 122) Then ' Se o caracter for MINUSCULO auxiliar = auxiliar + tbKey.Text ' Soma o Asc com a chave digitada If (auxiliar > 122) Then ' Se a conversão passar de z auxiliar = auxiliar - 26 'Volta ao ínicio do alfabeto End If resultado = resultado + Chr(auxiliar) 'Salva o caracter convertido na nova string Else 'Caso o caracter não foi uma letra resultado = resultado + Chr(auxiliar) 'Salva o caracter na nova string End If Next 'Fim do Loop tbResultado.Text = resultado 'O tbResultado mostra a string resultado. resultado = "" ' reseta a string caso venha ser usada novamente Catch MsgBox("Preencha os campos necessários", , "Cifra de César") 'Campo da chave não pode estar vazio End Try Código do Botão DESCRIPTOGRAFAR texto = tbTexto.Text 'Passa oque está no textbox para variavel texto If (tbKey.Text <> "" Or tbTexto.Text <> "") Then 'Verifica se os dois texto não estão vazios For i As Integer = 0 To texto.Length - 1 'Loop que percorrará a string inteira do texto auxiliar = Asc(texto(i)) 'Pega o número Asc do Caracter If (auxiliar >= 65 And auxiliar <= 90) Then 'Se o caracter for MAISCULO auxiliar = auxiliar - tbKey.Text ' Soma o Asc com a Chave digitada If (auxiliar < 65) Then ' Se a conversão passar do Z auxiliar = auxiliar + 26 'Vai para o fim do alfabeto End If resultado = resultado + Chr(auxiliar) 'Salva o caracter convertido na nova string ElseIf (auxiliar >= 97 And auxiliar <= 122) Then ' Se o caracter for MINUSCULO auxiliar = auxiliar - tbKey.Text ' Soma o Asc com a chave digitada If (auxiliar < 97) Then ' Se a conversão passar de z auxiliar = auxiliar + 26 'Vai para o fim do alfabeto End If resultado = resultado + Chr(auxiliar) 'Salva o caracter convertido na nova string Else 'Caso o caracter não foi uma letra resultado = resultado + Chr(auxiliar) 'Salva o caracter na nova string End If Next 'Fim do Loop tbResultado.Text = resultado 'O tbResultado mostra a string resultado. resultado = "" 'Reseta a string caso venha ser usada novamente Else MsgBox("Preencha o Campo KEY", , "Cifra de César") End If Código do botão LIMPAR tbTexto.Clear() tbResultado.Clear() tbKey.Clear() tbTexto.Focus() Código no LOAD tbResultado.Enabled = False 'O campo do resultado não pode ser modificado manualmente Praticamente toda linha está comentário (Oque está depois de ' é comentário ) para fácil compreensão do programa. Basicamente ele percorre o texto a ser criptografado ou descriptografado, pegando cada posição e avançando ou recuando no alfabeto. Vocês percebem que o código praticamente se repete. Eu poderia facilmente ter criado uma função, que facilitaria tudo e economizaria algumas linhas. Todavia, pra quem te começando, acho que é mais fácil pra entender. Caso você já possua um conhecimento avançado, você pode implementar a função. Qualquer dúvida deixe seu comentário. O Download está a disposição para quem quiser. Download Scan Em breve no meu GitHub também rs.
