DESAFIO, TESTE DE CRIPTOGRAFIA!!!

USUARIO.EXCLUIDOS 30/03/2005 08:41:37
#75699
Aeh, gostei da idéia!!! Me amarro em criptografia!!!

O desafio continua!!!

Texto original:

O Rato roeu a roupa do Rei de Roma...

Criptografado:

TyBSYXRvIHJvZXUgYSByb3VwYSBkbyBSZWkgZGUgUm9tYS4uLg==


Quem mata essa? Qual o nome do algoritmo que gera esse texto??? Essa é fácil!!!
LCSD 30/03/2005 09:19:53
#75704
Bom, já que o desafio está lançado. Lá vou veu passar uma ENCRIPTAÇÃO que foi desenvolvida por nós aki mesmo na empresa.

O texto original é esse:

VBMANIA: O melhor site de programação VB existente no MUNDO.


E o resultado da Encriptação fica desta forma:
  
0"++*5
p=O  ^"RTU5R
P=ˆ›
C"sp_$O
C9d6 D


PS: Com uma única rotina, eu passo o texto, ele criptografa, e se eu passar o texto criptografado, ele descriptografa normalmente.

Acho que esta é difícil, mas não custa nada tentar.
USUARIO.EXCLUIDOS 30/03/2005 10:32:22
#75714
Poxa... Essa do LCSD foi difícil...

Principalmente por causa dos caracteres coringa "", que a gente não sabe o código ascii...

Mas, posta somente a palavra "VBMANIA" pra gente ver como fica....

Acredito que deva ser do mesmo princípio de todas as criptografias, até pq o número de caracteres nas duas sequências são iguais (60)...

Belo código...
USUARIO.EXCLUIDOS 30/03/2005 10:52:46
#75719
[txt-color=#ff0000]Ps: Algum MODERADOR do FÓ“RUM, poderia colocar este TÓ“PICO no ONTOP?[/txt-color]

Blz.. galera, estou gostando!
Cleyton! 10 Cara!! Nota 10! Você matou o TREM na hora mesmo.....
Não preciso nem colocar mais o CÓ“DIGO......
Neo... o seu é simples... mas não SINCERAMENTE... não consigo DESCOBRIR...
rsrsr
LCSD
Muito bom este seu CÓ“DIGO!!! Parabéns... definitivamente... é complicado quebrar este seu...

Bem galera já tem 2 Códigos... vamos ver se a galera consegue QUEBRAR...
opa... CLEYTON e Cia... tenho outro aqui pra vocês....
é semelhante ao outros, SÓ“ que usa mais BITS, e Chave de VALIDAÇÃO....
Acabei de testar...

Vamos ver...

Eu coloco
Text1.Text = '2005 - VAMOS AprEnder a CripTOGRAFAR !'
Depois de criptografar
Text1.Text = 'ޭ¹Â­Ã‚ºÂÃ‚ÃŸÃŸÃ…ᑍ¾Â¬Ã‚²Ã‚©Ã’ÃÅ àÃÅ àÃ‚³ÃŸÃ‚¾Ã‚¾Ã‚¸Ã‚«Ã¢â‚¬â€œÃ‚¼Ã…¾Ã‚Ã¢â‚¬ÂºÃ‚ºÃ‚ÃŸÃ‚ºÂ¾ÃŸÃŸààààÃ‚¸'

Detalhe, este tem uma chave, se ela não for descoberta não será possível DESCRIPTOGRAFAR...

Qual o código e a chave?

Ps2: Depois que todo mundo tentar... vou colcoar o CÓ“DIGO... aqui...
LCSD 30/03/2005 11:07:42
#75720
Para quem quiser saber, a palavra VBMania fica desta forma:


0"



USUARIO.EXCLUIDOS 30/03/2005 11:32:59
#75729
LCSD, entendi...

Bom, pelo menos na primeira comparação das duas palavras VBMANIA (na frase e individualmente), deu pra perceber que elas tem o mesmo formato e tamanho... O dificil será descobrir quais são os códigos ASCII que geram os caracteres coringa... Esse é o problema...

O código do "V" é 118... Então

Deve ser algo do tipo:

For x=1 to Len(String)
Criptografa = 118 * (Alguma conta maluca...)
Next

Germanir, depois eu coloco o nome do algoritmo que gera a criptografia... DICA: é amplamente usado na Web...
USUARIO.EXCLUIDOS 30/03/2005 11:45:32
#75734
Vocês conhecem o operador XOR? veja

Private Sub Command1_Click()
    Dim N1 As Integer
    Dim N2 As Integer
    Dim Chave As Integer
    N1 = 125
    Chave = 128
    MsgBox N1 Xor 1212 'Deve dar 253
    MsgBox 253 Xor 128 'Deve dar 125
End Sub
USUARIO.EXCLUIDOS 30/03/2005 13:18:31
#75774
O que esse operador faz PAGANINI???
PROGRAMADORVB6 30/03/2005 13:28:47
#75777
Estou corioso Paganini , a chave que voce colocou é de 128 Bits?
LCSD 30/03/2005 14:31:40
#75795
Eu vou colaborar com a GALERA do SITE, e vou postar akí a função de ENCRIPTAÇÃO que eu utilizo.

Esta função serve tanto para CRIPTAR os dados, como para DESCRIPTAR. Ou seja, com uma única função, ela verifica se os dados estão criptografados, se tiver, ele descriptografa, e vice-versa.

Está aí a função para quem quiser dar uma estudada.


Function Encrypt(strSecret As Variant) As Variant
    Dim EncryptSecret As Variant
    
    If IsEmpty(strSecret) Then
        Encrypt = ""
        Exit Function
    ElseIf IsNull(strSecret) Then
        Encrypt = Empty
        Exit Function
    End If
    
    EncryptSecret = RTrim(strSecret)
    
    L = Len(EncryptPassword)
    For X = 1 To Len(EncryptSecret)
        Char = Asc(Mid$(EncryptPassword, (X Mod L) - L * ((X Mod L) = 0), 1))
        Mid$(EncryptSecret, X, 1) = Chr$(Asc(Mid$(EncryptSecret, X, 1)) Xor Char)
    Next
    
    If EncryptSecret = "" Then
        EncryptSecret = Null
    ElseIf EncryptSecret = "False" Then
        EncryptSecret = False
    ElseIf EncryptSecret = "True" Then
        EncryptSecret = True
    End If
    
    Encrypt = EncryptSecret
End Function

[txt-color=#ff0000]Alterado por Bruno Machado - o L minúsculo era facilmente confundido por 1 (UM). [/txt-color]
Página 2 de 4 [31 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar