kto wie...?

[forcemu]

jak to rozszyfrowac?????

 

 

 

$pp3 = StringLeft($numer1, 2)

$A4F2D503F3A = Round($A5328800333 * 6)

$pp1 = StringRight($numer1, 3)

$pod2 = $pp1 & $pp2 & $pp3

$pp2 = StringLen($sP1)

$A5328800333 = Log($A2137800C58 + 0x2978038B)

$p2 = StringLen($numer1)

$A5E28B00806 = Hex($A5837A0611F + 0x0168FF33, 6)

$p3 = StringLeft($sP1, 8)

$A5328800333 = Log($A2137800C58 + 0x2978038B)

$p1 = StringRight($sP1, 4)

$A3238301357 = Hex($A2137800C58 + 0x2BD0CB50, 8)

$pod1 = $p1 & $p2 & $p3

Dim $numerossss

BIOS($numerossss)

$A5E37E01224 = Log($A5837A0611F + 0x0031925C)

Dim $numeros2

PROCESOR($numeros2)

$sP1 = $numeros2[1][28]

$numer1 = $numerossss[1][3]

 

$PODNIANA = $pod1 & $pod2

$GENEROWANYKOD = StringReplace($PODNIANA, " ", "X")

$CODEPOTRZEBNY = FUNKCJAKODU(1, $GENEROWANYKOD, "v6dO-a")

 

If $SERIALPASS <> $CODEPOTRZEBNY Then

$A35C2514552 = GUICreate("Code Generator-4.3", 0x0118, 0x0023, (@DesktopWidth - 0x01D5) / 2, (@DesktopHeight - 0x027F) / 2, $gConst0010 + $gConst0016 + $gConst0014)

$A59C2F15956 = GUICtrlCreateLabel(" Code Number", 10, 10, 0x0096, 0x0014)

$A21D251105D = GUICtrlCreateInput($GENEROWANYKOD, 100, 10, 0x00B4, 0x0014)

While 1

$A09D2B1014E = GUIGetMsg()

Select

Case $A09D2B1014E = $gConst01FB

ExitLoop

Case Else

EndSelect

WEnd

Exit

 

Func FUNKCJAKODU($Arg00, $Arg01, $Arg02, $ArgOpt03 = 1)

If $Arg00 <> 0 And $Arg00 <> 1 Then

SetError(1)

Return ''

ElseIf $Arg01 = '' Or $Arg02 = '' Then

SetError(1)

Return ''

Else

If Number($ArgOpt03) <= 0 Or Int($ArgOpt03) <> $ArgOpt03 Then $ArgOpt03 = 1

Local $1

Local $2

Local $3

Local $4

Local $5[0x0100][2]

Local $6

Local $7

Local $8

Local $9

Local $10

Local $11

Local $12

If $Arg00 = 1 Then

For $liczbasssss = 0 To $ArgOpt03 Step 1

$3 = ''

$2 = ''

$1 = ''

For $3 = 1 To StringLen($Arg01)

If $2 = StringLen($Arg02) Then

$2 = 1

Else

$2 = $2 + 1

EndIf

$1 = $1 & Chr(BitXOR(Asc(StringMid($Arg01, $3, 1)), Asc(StringMid($Arg02, $2, 1)), 0x00FF))

Next

$Arg01 = $1

$6 = ''

$7 = 0

$8 = ''

$9 = ''

$10 = ''

$12 = ''

$11 = ''

$4 = ''

$5 = ''

Local $5[0x0100][2]

For $6 = 0 To 0x00FF

$5[$6][1] = Asc(StringMid($Arg02, Mod($6, StringLen($Arg02)) + 1, 1))

$5[$6][0] = $6

Next

For $6 = 0 To 0x00FF

$7 = Mod(($7 + $5[$6][0] + $5[$6][1]), 0x0100)

$4 = $5[$6][0]

$5[$6][0] = $5[$7][0]

$5[$7][0] = $4

Next

For $6 = 1 To StringLen($Arg01)

$8 = Mod(($8 + 1), 0x0100)

$9 = Mod(($9 + $5[$8][0]), 0x0100)

$10 = $5[Mod(($5[$8][0] + $5[$9][0]), 0x0100)][0]

$12 = BitXOR(Asc(StringMid($Arg01, $6, 1)), $10)

$11 = $11 & Hex($12, 2)

Next

$Arg01 = $11

Next

Else

For $liczbasssss = 0 To $ArgOpt03 Step 1

$7 = 0

$8 = ''

$9 = ''

$10 = ''

$12 = ''

$11 = ''

$4 = ''

$5 = ''

Local $5[0x0100][2]

For $6 = 0 To 0x00FF

$5[$6][1] = Asc(StringMid($Arg02, Mod($6, StringLen($Arg02)) + 1, 1))

$5[$6][0] = $6

Next

For $6 = 0 To 0x00FF

$7 = Mod(($7 + $5[$6][0] + $5[$6][1]), 0x0100)

$4 = $5[$6][0]

$5[$6][0] = $5[$7][0]

$5[$7][0] = $4

Next

For $6 = 1 To StringLen($Arg01) Step 2

$8 = Mod(($8 + 1), 0x0100)

$9 = Mod(($9 + $5[$8][0]), 0x0100)

$10 = $5[Mod(($5[$8][0] + $5[$9][0]), 0x0100)][0]

$12 = BitXOR(Dec(StringMid($Arg01, $6, 2)), $10)

$11 = $11 & Chr($12)

Next

$Arg01 = $11

$3 = ''

$2 = ''

$1 = ''

For $3 = 1 To StringLen($Arg01)

If $2 = StringLen($Arg02) Then

$2 = 1

Else

$2 = $2 + 1

EndIf

$1 = $1 & Chr(BitXOR(Asc(StringMid($Arg01, $3, 1)), Asc(StringMid($Arg02, $2, 1)), 0x00FF))

Next

$Arg01 = $1

Next

EndIf

Return $Arg01

EndIf

EndFunc

[Mikiel^^]

Skad ta wzieles??

[/home]

po pierwsze do tego sa znaczniki

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

, a po drugie co dokladnie masz na mysli, mowiac jak to rozszyfrowac? toc to jezyk programowania, jak kazdy inny, na moje to wyglada na jakis typ Visuala, bo Dim wystepuje, ale moge sie mylic. Tam jest caly kod wraz z funkcjami, sprawdzaniem rozdzialy ekranu itd. Nie wczytywalem sie, tylko pobieznie przjerzalem.

[forcemu]

jest to czesc kodu autoit wytargany z autoall ;] odpowiadajacy za zgodnosc (kodu) serialu (ktory wysyła autor) z fingerprintem naszego PC...

 

 

chce zrobic generator kluczy do aa

 

a pracuje rownież nad swoja wersja aa jakby ktos był zainteresowany wspólpraca walić na pw