Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function Caesar-Crypt {
- <#
- .SYNOPSIS
- Функция для шифрования\дешифрования текста путем смещения кода символов на заданное число
- .DESCRIPTION
- Функция принимает на вход текст, и по-символьно сдвигает код символа в указанную сторону
- .PARAMETER Text
- Шифруемый\дешифруемый текст
- .PARAMETER OffSet
- Тут задаем смещение. Принимаются отрицательные числа
- .INPUTS
- Шифруемый\дешифруемый текст и смещение
- .OUTPUTS
- Шифрованный\дешифрованный текст
- .EXAMPLE
- Caesar-Crypt -Text 'Pikabu' -OffSet 5
- .EXAMPLE
- Caesar-Crypt -Text 'Unpfgz' -OffSet -5
- .EXAMPLE
- Get-Help Caesar-Crypt -Full
- .NOTES
- Author: Wheee
- Filename: Caesar-Crypt.ps1
- Other: Special for pikabu
- #>
- param(
- [PARAMETER(Mandatory=$True,Position = 0)][string]$Text,
- [int]$OffSet = 0
- )
- 0..($Text.Length-1) | %{
- $Result += $(
- if ( ([int][char]$Text[$_]) -ge 32 -and ([int][char]$Text[$_]) -le 64) {
- $Text[$_]
- } else {
- [char][int](([int][char]$Text[$_] ) + $OffSet)
- }
- )
- }
- Return $Result
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement