Pesquisar na Comunidade
Mostrando resultados para as tags ''criptografia''.
Encontrado 3 registros
-
Como desbloquear partição protegida pelo Bitlocker sem a chave?
DhoneStark postou um tópico no fórum em Dúvidas & Ajuda
Olá, boa noite. Gostaria de pedir ajuda, pois aqui foi o único lugar que consegui enxergar um pouco de luz no fim do túnel. Cheguei aqui devido a esse tópico: Eu mandei meu notebook Dell, para a assistência, depois de um pequeno problema de fábrica. Após a chegada do computador, ele veio com o sistema travado, tanto partição C, como a D. Minha única alternativa foi formatar a C para tentar ver se tinha acesso ao D. Infelizmente, não deu certo. Embora eu tenha conseguido instalar o windows na partição, todos os meus arquivos importantes estão criptografados na partição D. Não consigo ter acesso, não tenho a chave de recuperação, e nem o arquivo. Entrei em contato com a Dell, que mandou eu procurar a Microsoft, e ambas empurram o problema uma para a outra. Eu não tenho mais esperanças. Se alguém conseguir me ajudar, fico feliz em até mesmo contribuir com algum valor simbólico. Desde já agradeço. -
Boa noite membros. Pra quem teve a infelicidade de ser infectado com o famoso vírus Ransomware ([Hidden Content]). Estou aqui para informar a vocês que existe uma ferramenta criada pela ESET, que vai descriptografar os arquivos. A ferramenta se chama TeslaCrypt Decryptor. [spoiler=Download & Scan]Informações e download: [Hidden Content] Download: [Hidden Content] Scan: [Hidden Content] [spoiler=Existe também uma senha para descriptografar sem ter que usar a ferramenta, pode ser que funcione.] Créditos: Lacking Faces
-
[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.
