Added write-ROT13.ps1

README.md

@@ -66,6 +66,7 @@ The following PowerShell scripts can be found in the [Scripts/](Scripts/) subfol
 * [write-morse-code.ps1](Scripts/write-morse-code.ps1) - writes the given text in Morse code
 * [write-MOTD.ps1](Scripts/write-MOTD.ps1) - writes the message of the day (MOTD)
 * [write-red.ps1](Scripts/write-red.ps1) - writes the given text in a red foreground color
+* [write-ROT13.ps1](Scripts/write-ROT1.ps1) - encodes or decodes the given text with ROT13
 * [write-typewriter.ps1](Scripts/write-typewriter.ps1) - writes the given text with the typewriter effect
 * [write-uppercase.ps1](Scripts/write-uppercase.ps1) - writes the given text in uppercase letters
 * [write-vertical.ps1](Scripts/write-vertical.ps1) - writes the given text in vertical direction

Scripts/write-ROT13.ps1

@@ -0,0 +1,34 @@
+#!/snap/bin/powershell
+
+# Syntax:       ./write-ROT13.ps1 [<text>]
+# Description:	encodes or decodes the given text with ROT13
+# Author:	Markus Fleschutz
+# Source:	github.com/fleschutz/PowerShell
+# License:	CC0
+
+param([String]$Text)
+
+function ROT13 { param([String]$Text)
+	$Text.ToCharArray() | ForEach-Object {
+		if ((([int] $_ -ge 97) -and ([int] $_ -le 109)) -or (([int] $_ -ge 65) -and ([int] $_ -le 77))) {
+			$Result += [char] ([int] $_ + 13);
+		} elseif ((([int] $_ -ge 110) -and ([int] $_ -le 122)) -or (([int] $_ -ge 78) -and ([int] $_ -le 90))) {
+			$Result += [char] ([int] $_ - 13);
+		} else {
+			$Result += $_
+		}        
+	}
+	return $Result
+}
+
+try {
+	if ($Text -eq "" ) {
+		[String]$Text = read-host "Enter text to write"
+	}
+	$Result = ROT13 $Text
+	write-output $Result
+	exit 0
+} catch {
+	write-error "ERROR in line $($_.InvocationInfo.ScriptLineNumber): $($Error[0])"
+	exit 1
+}