A very simple example, to relax

Name: SerialMe#6

Language: Autoit

Level: ?

Packer: Not

Obfuscation: Code (Base64)

Rule: Find the Valid Serial

Not Patching

Hug

SerialMe#6.rar

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 November 6, 201212 yr by ragdog

Serial

0x645FD32724472E394438639CECA599BC578F11161D7A835236D2405707419E1F

Ok, congratulations

the purpose was really to be solved very fast.

Hug