Jump to content
Tuts 4 You

[SerialMe] SerialMe#6


C0M3ND4D0R

Recommended Posts

Serial

0x645FD32724472E394438639CECA599BC578F11161D7A835236D2405707419E1F

Decrypt


#include "rijndael.au3"
#include <string.au3>
$KEY = UnkowFunky ( "MDEyMzQ1Njc4OUFCQ0RFRjAxMjM0NTY3ODlBQkNERUb=" )
$Messages = UnkowFunky ( "Q3JhY2tlcnNUZWFtTnVtYmVyT25l" )
$OutPut = _RIJNDAELCIPHER ( $KEY , $Messages )
MSGBOX ( 64 , ("Info!") , $OutPut )
FUNC UnkowFunky ( $S )
LOCAL $KEY = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=" , $T = "" , $P = - 8 , $A = 0 , $C , $D , $LEN = STRINGLEN ( $S )
FOR $I = 1 TO $LEN
$C = STRINGINSTR ( $KEY , STRINGMID ( $S , $I , 1 ) , 1 ) - 1
IF $C < 0 THEN CONTINUELOOP
$A = BITOR ( BITSHIFT ( $A , - 6 ) , BITAND ( $C , 63 ) )
$P = $P + 6
IF $P >= 0 THEN
$D = BITAND ( BITSHIFT ( $A , $P ) , 255 )
IF $C <> 64 THEN $T = $T & CHR ( $D )
$A = BITAND ( $A , 63 )
$P = $P - 8
ENDIF
NEXT
RETURN $T
ENDFUNC
Edited by ragdog
Link to comment

Serial

0x645FD32724472E394438639CECA599BC578F11161D7A835236D2405707419E1F

Ok, congratulations

the purpose was really to be solved very fast.

Hug

Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...