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
