Advertisement
Guest User

Caesar-Crypt.ps1

a guest
Jul 16th, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function Caesar-Crypt {
  2.  
  3. <#
  4.  
  5. .SYNOPSIS
  6.  
  7. Функция для шифрования\дешифрования текста путем смещения кода символов на заданное число
  8.  
  9.  
  10. .DESCRIPTION
  11.  
  12. Функция принимает на вход текст, и по-символьно сдвигает код символа в указанную сторону
  13.  
  14.  
  15. .PARAMETER Text
  16.  
  17. Шифруемый\дешифруемый текст
  18.  
  19.  
  20. .PARAMETER OffSet
  21.  
  22. Тут задаем смещение. Принимаются отрицательные числа
  23.  
  24.  
  25. .INPUTS
  26.  
  27. Шифруемый\дешифруемый текст и смещение
  28.  
  29.  
  30. .OUTPUTS
  31.  
  32. Шифрованный\дешифрованный текст
  33.  
  34.  
  35. .EXAMPLE
  36.  
  37. Caesar-Crypt -Text 'Pikabu' -OffSet 5
  38.  
  39.  
  40. .EXAMPLE
  41.  
  42. Caesar-Crypt -Text 'Unpfgz' -OffSet -5
  43.  
  44.  
  45. .EXAMPLE
  46.  
  47. Get-Help Caesar-Crypt -Full
  48.  
  49.  
  50. .NOTES
  51.  
  52. Author: Wheee
  53.  
  54. Filename: Caesar-Crypt.ps1
  55.  
  56. Other: Special for pikabu
  57.  
  58.  
  59. #>
  60.  
  61. param(
  62.  
  63. [PARAMETER(Mandatory=$True,Position = 0)][string]$Text,
  64.  
  65. [int]$OffSet = 0
  66.  
  67. )
  68.  
  69. 0..($Text.Length-1) | %{
  70.  
  71. $Result += $(
  72.  
  73. if ( ([int][char]$Text[$_]) -ge 32 -and ([int][char]$Text[$_]) -le 64) {
  74.  
  75. $Text[$_]
  76.  
  77. } else {
  78.  
  79. [char][int](([int][char]$Text[$_] ) + $OffSet)
  80.  
  81. }
  82.  
  83. )
  84.  
  85. }
  86.  
  87. Return $Result
  88.  
  89. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement