Indetectables

#cs ----------------------------------------------------------------------------
 
 Script Name: sAlakran
 AutoIt Version: 3.3.8.1
 Author: Scorpio
 
 Script Function:
    Basic text encryption and decryption.
 
#ce ----------------------------------------------------------------------------

Func sCipher($sString, $sKey)
    Local $Seed,  $Final, $i

    For $i = 1 To StringLen($sKey)
        $Seed = ($Seed + Asc(StringLeft($sKey, 1))) * StringLen($Skey)
        $sKey = StringMid($sKey, 2)
    Next

    For $i = 1 To StringLen($sString)
        $Final &= Asc(StringLeft($sString, 1)) + $Seed
        $sString = StringMid($sString, 2)
    Next

    Return $Final
EndFunc

Func sUnCipher($sString, $sKey)
    Local $Seed, $Final, $Step, $i

    For $i = 1 To StringLen($sKey)
        $Seed = ($Seed + Asc(StringLeft($sKey, 1))) * StringLen($Skey)
        $sKey = StringMid($sKey, 2)
    Next

    $Step = StringLen($Seed) + Asc(StringLeft($sKey, 1))

    For $i = $Step To StringLen($sString) Step $Step
        $Final &= Chr(StringLeft($sString, $Step) - $Seed)
        $sString = StringMid($sString, $Step + 1)
    Next

    Return $Final
EndFunc