Jump to content
Notícia
  • Adquira já o seu VIP!

Search the Community

Showing results for tags 'criptografia'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Anunciantes
    • Advertise here
    • silvaBR Cheats
  • ################## WEB CHEATS ##################
  • Anúncios/Eventos
    • Regras
    • Anúncios
    • Eventos do fórum
  • Feedback & Suporte
    • Tutoriais WC
    • Suporte
    • Sugestões
    • Denúncias e Reclamações
    • Depósito
  • Shooter Zone
    • Point Blank
    • Combat Arms
    • Cross Fire
    • Counter Strike
    • Battle Royale
    • Outros Shooters em Geral
    • Shooter Zone - Lixão
  • RPG/MOBA Zone
    • WYD - With Your Destiny
    • Grand Chase
    • Ragnarok
    • League of Legends
    • Tibia
    • Priston Tale
    • Mu Online
    • Perfect World
    • GunBound
    • Runescape
    • Outros RPGs em Geral
    • RPG Zone - Lixão
  • Outros Games Zone
  • Design Zone
  • Info Zone
  • Video Games Zone
  • ################## WEB CHEATS ##################
  • Entretenimento & Diversão
  • 【FREE FIRE】▄︻┻┳═一's Fórum do Clube
  • Anticomunismo's Tópicos

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Discord


Idade

 
or  

Found 3 results

  1. 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.
  2. Boa noite membros. Pra quem teve a infelicidade de ser infectado com o famoso vírus Ransomware (https://pt.wikipedia.org/wiki/Ransomware). 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: http://support.eset.com/kb6051/ Download: http://www.mediafire.com/download/1s4c3bkwt3nxf0c/ESETTeslaCryptDecryptor.exe Scan: https://www.virustotal.com/en/file/f28d4d4f89cbcc79e7b71f43e1111251546b0ae01d4443d4ecccd6dac4cb40d0/analysis/ [spoiler=Existe também uma senha para descriptografar sem ter que usar a ferramenta, pode ser que funcione.] Créditos: Lacking Faces
  3. https://pt.wikipedia.org/wiki/Cifra_de_César 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.
×
×
  • Create New...