Texto Codificado

[kymbler 0]

bom estou com um texto codificado em ASP

sim sei que é em asp porém nao sei qual o jeito que foi codificado poderiam me dar uma ajuda para quebrar ?

 

é uns 2 arquivos de texto completos

 

o texto começa assim

 

ÀÝJGOMoNAbiZz4dRNnCi

 

abraços e desculpe qualquer coisa.

[Gustavo Emygdio Barboza 24]

Poxa ... pode ter sido criptografado de n maneiras ... impossível

[xanburzum 169]

Dá uma procurada no fórum que coloquei vários exemplos, com MD5, SHA1, SHA-256, etc... MD5 tá um pouco menos usado o melhor é HASH 256. Bem como implementar um implemntation javascript e, em seguida, chamar as funções através do ASP:

<%@ LANGUAGE=VBSCRIPT%>
<SCRIPT LANGUAGE="Javascript" RUNAT="Server">
...colocar o código javascript na página http://pajhome.org.uk/crypt/md5/sha256.html aqui ....


<SCRIPT RUNAT="Server" LANGUAGE="VBSCRIPT" >
	Response.write(hex_sha256("Hello World!"))
</SCRIPT>

Mas alguns métodos são unilaterais....

[kymbler 0]

Dá uma procurada no fórum que coloquei vários exemplos, com MD5, SHA1, SHA-256, etc... MD5 tá um pouco menos usado o melhor é HASH 256. Bem como implementar um implemntation javascript e, em seguida, chamar as funções através do ASP:

<%@ LANGUAGE=VBSCRIPT%>
<SCRIPT LANGUAGE="Javascript" RUNAT="Server">
...colocar o código javascript na página http://pajhome.org.uk/crypt/md5/sha256.html aqui ....


<SCRIPT RUNAT="Server" LANGUAGE="VBSCRIPT" >
	Response.write(hex_sha256("Hello World!"))
</SCRIPT>

Mas alguns métodos são unilaterais....

 

certo porem não é em site e sim arquivo .txt

[Gustavo Emygdio Barboza 24]

Essas codificações não são reversiveis

[xanburzum 169]

também pode usar para arquivo, mas para descriptografar precisa ver qual o método usado e como citei no post #3 alguns são unilaterais

[Gustavo Emygdio Barboza 24]

se não tiver o script de codificou o post #2 já diz a resposta...

[xanburzum 169]

muitos usam MD5, DES/3DES ou pode ser criado uma classe por qualquer dev.

[Gustavo Emygdio Barboza 24]

Mas o kymbler quer descriptografar ele não quer criptografar... para codificar/criptografar pode realmente usar o md5, sua... mas não tem retorno para isso devemos fazer uma função particular onde fazemos as regrar para codificar e descodificar... uma função destas basicamente usa-se o mid /asc /chr...

[xanburzum 169]

teria k ver qual método usou de cript par ver se tem como, pois alguns são unilaterais.

[Gustavo Emygdio Barboza 24]

Então por isso que resumi a resposta no post#2

[xanburzum 169]

dá uma olhada no fórum que coloquei alguns decoder pode te ajudar e alguns decodificadores online, em Base64, MID, AHS. POr exemplo:

Base 64 Encode - Decode

Const sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/
' ---------------------------------------
Function Base64decode(ByVal asContents)
    Dim lsResult
    Dim lnPosition
    Dim lsGroup64, lsGroupBinary
    Dim Char1, Char2, Char3, Char4
    Dim Byte1, Byte2, Byte3
    If Len(asContents) Mod 4 > 0 Then asContents = asContents & String(4 - (Len(asContents) Mod 4), " ")
    lsResult = ""
    
    For lnPosition = 1 To Len(asContents) Step 4
        lsGroupBinary = ""
        lsGroup64 = Mid(asContents, lnPosition, 4)
        Char1 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 1, 1)) - 1
        Char2 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 2, 1)) - 1
        Char3 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 3, 1)) - 1
        Char4 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 4, 1)) - 1
        Byte1 = Chr(((Char2 And 48)  16) Or (Char1 * 4) And &HFF)
        Byte2 = lsGroupBinary & Chr(((Char3 And 60)  4) Or (Char2 * 16) And &HFF)
        Byte3 = Chr((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))
        lsGroupBinary = Byte1 & Byte2 & Byte3
        
        lsResult = lsResult + lsGroupBinary
    Next
    Base64decode = lsResult
End Function
' --------------------------------------

Function Base64encode(ByVal asContents)
    Dim lnPosition
    Dim lsResult
    Dim Char1
    Dim Char2
    Dim Char3
    Dim Char4
    Dim Byte1
    Dim Byte2
    Dim Byte3
    Dim SaveBits1
    Dim SaveBits2
    Dim lsGroupBinary
    Dim lsGroup64
    
    If Len(asContents) Mod 3 > 0 Then asContents = asContents & String(3 - (Len(asContents) Mod 3), " ")
    lsResult = ""
    
    For lnPosition = 1 To Len(asContents) Step 3
        lsGroup64 = ""
        lsGroupBinary = Mid(asContents, lnPosition, 3)

        Byte1 = Asc(Mid(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
        Byte2 = Asc(Mid(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
        Byte3 = Asc(Mid(lsGroupBinary, 3, 1))

        Char1 = Mid(sBASE_64_CHARACTERS, ((Byte1 And 252)  4) + 1, 1)
        Char2 = Mid(sBASE_64_CHARACTERS, (((Byte2 And 240)  16) Or (SaveBits1 * 16) And &HFF) + 1, 1)
        Char3 = Mid(sBASE_64_CHARACTERS, (((Byte3 And 192)  64) Or (SaveBits2 * 4) And &HFF) + 1, 1)
        Char4 = Mid(sBASE_64_CHARACTERS, (Byte3 And 63) + 1, 1)
        lsGroup64 = Char1 & Char2 & Char3 & Char4
        
        lsResult = lsResult + lsGroup64
    Next
    
    Base64encode = lsResult
End Function

[Gustavo Emygdio Barboza 24]

É eu conheço o base64 utilizo no actionScript para salvar as imagens geradas pela webcam do cliente para salvar a foto no servidor... mas a dúvida do amigo é descobrir a codificação... por isso que o post#2 responde de maneira bem simplória...

[xanburzum 169]

decode... se não sabe qual é a codificação, pode se tentar alguns decode, inclusive alguns onlines.... kymbler dê uma procurada no fórum tem alguns exemplos que postei