[PowerShell] Convert ACSII to String Values [New GUI]

ArkPhaze · 11-30-2011, 07:33 AM

Code:
#Convert ACSII Input to String Value

function CreateForm {
	[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
	[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null

	$Form1 = New-Object System.Windows.Forms.Form
	$btn1 = New-Object System.Windows.Forms.Button
	
	$input_txt = New-Object System.Windows.Forms.TextBox
	$decimal_txt = New-Object System.Windows.Forms.TextBox
	$octal_txt = New-Object System.Windows.Forms.TextBox
	$hexadecimal_txt = New-Object System.Windows.Forms.TextBox
	
	$IN_label = New-Object System.Windows.Forms.Label
	$DEC_label = New-Object System.Windows.Forms.Label
	$OCT_label = New-Object System.Windows.Forms.Label
	$HEX_label = New-Object System.Windows.Forms.Label
	$copyright = New-Object System.Windows.Forms.Label

	$btn1_click = {
		ACSII_($input_txt, $decimal_txt, $octal_txt, $hexadecimal_txt)
	}
	
	# $Form1_Load = {
		# $rtb_text.Select()
	# }
	
	$Form1.Name = 'Form1'
	$Form1.Text = 'ACSII To String - PowerShell Script'
	$Form1.FormBorderStyle = 'FixedSingle'
	$Form1.MaximizeBox = $False
	$Form1.DataBindings.DefaultDataSourceUpdateMode = 0
	$Form1.BackColor = [System.Drawing.Color]::FromArgb(255,227,227,227)
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 385
	$Draw_Size.Height = 275
	$Form1.ClientSize = $Draw_Size

	$Form1.add_Load($Form1_Load)
	
	# $btn1.UseVisualStyleBackColor = $False
	$btn1.Text = ''
	$btn1.TabIndex = 1
	$btn1.Name = 'btn1'
	$btn1.Text = 'Update'
	$btn1.Font = New-Object System.Drawing.Font("Courier New",10,0,3,0)
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 100
	$Draw_Size.Height = 21
	$btn1.Size = $Draw_Size
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 137
	$Draw_Point.Y = 230
	$btn1.Location = $Draw_Point
	$btn1.add_Click($btn1_click)
	$Form1.Controls.Add($btn1)
		
	#Form Textboxes
	$input_txt.Text = ''
	$input_txt.TabIndex = 2
	$input_txt.Name = 'input_txt'
	$input_txt.ReadOnly = $False
	$input_txt.Font = New-Object System.Drawing.Font("Courier New",10,0,3,0)
	$input_txt.DataBindings.DefaultDataSourceUpdateMode = 0
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 330
	$Draw_Size.Height = 500
	$input_txt.Size = $Draw_Size
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 25
	$Draw_Point.Y = 25
	$input_txt.Location = $Draw_Point
	$Form1.Controls.Add($input_txt)
	
	$decimal_txt.Text = ''
	$decimal_txt.TabIndex = 3
	$decimal_txt.Name = 'decimal_txt'
	$decimal_txt.ReadOnly = $True
	$decimal_txt.Font = New-Object System.Drawing.Font("Courier New",10,0,3,0)
	$decimal_txt.DataBindings.DefaultDataSourceUpdateMode = 0
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 330
	$Draw_Size.Height = 500
	$decimal_txt.Size = $Draw_Size
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 25
	$Draw_Point.Y = 90
	$decimal_txt.Location = $Draw_Point
	$Form1.Controls.Add($decimal_txt)
	
	$octal_txt.Text = ''
	$octal_txt.TabIndex = 4
	$octal_txt.Name = 'octal_txt'
	$octal_txt.ReadOnly = $True
	$octal_txt.Font = New-Object System.Drawing.Font("Courier New",10,0,3,0)
	$octal_txt.DataBindings.DefaultDataSourceUpdateMode = 0
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 330
	$Draw_Size.Height = 500
	$octal_txt.Size = $Draw_Size
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 25
	$Draw_Point.Y = 140
	$octal_txt.Location = $Draw_Point
	$Form1.Controls.Add($octal_txt)
	
	$hexadecimal_txt.Text = ''
	$hexadecimal_txt.TabIndex = 5
	$hexadecimal_txt.Name = 'hexadecimal_txt'
	$hexadecimal_txt.ReadOnly = $True
	$hexadecimal_txt.Font = New-Object System.Drawing.Font("Courier New",10,0,3,0)
	$hexadecimal_txt.DataBindings.DefaultDataSourceUpdateMode = 0
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 330
	$Draw_Size.Height = 500
	$hexadecimal_txt.Size = $Draw_Size
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 25
	$Draw_Point.Y = 190
	$hexadecimal_txt.Location = $Draw_Point
	$Form1.Controls.Add($hexadecimal_txt)
	
	#Form Labels
	$IN_label.DataBindings.DefaultDataSourceUpdateMode = 0
	$IN_label.Name = 'IN_label'
	$IN_label.Text = 'Input Value::'
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 125
	$Draw_Size.Height = 21
	$IN_label.Size = $Draw_Size
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 30
	$Draw_Point.Y = 10
	$IN_label.Location = $Draw_Point
	$Form1.Controls.Add($IN_label)
	
	$DEC_label.DataBindings.DefaultDataSourceUpdateMode = 0
	$DEC_label.Name = 'DEC_label'
	$DEC_label.Text = 'Decimal Value:'
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 125
	$Draw_Size.Height = 21
	$DEC_label.Size = $Draw_Size
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 30
	$Draw_Point.Y = 75
	$DEC_label.Location = $Draw_Point
	$Form1.Controls.Add($DEC_label)
	
	$OCT_label.DataBindings.DefaultDataSourceUpdateMode = 0
	$OCT_label.Name = 'OCT_label'
	$OCT_label.Text = 'Octal Value:'
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 125
	$Draw_Size.Height = 21
	$OCT_label.Size = $Draw_Size
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 30
	$Draw_Point.Y = 125
	$OCT_label.Location = $Draw_Point
	$Form1.Controls.Add($OCT_label)
	
	$HEX_label.DataBindings.DefaultDataSourceUpdateMode = 0
	$HEX_label.Name = 'HEX_label'
	$HEX_label.Text = 'Hexadecimal Value:'
	$Draw_Size = New-Object System.Drawing.Size
	$Draw_Size.Width = 125
	$Draw_Size.Height = 21
	$HEX_label.Size = $Draw_Size
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 30
	$Draw_Point.Y = 175
	$HEX_label.Location = $Draw_Point
	$Form1.Controls.Add($HEX_label)
	
	$copyright.DataBindings.DefaultDataSourceUpdateMode = 0
	$copyright.Name = 'copyright'
	$copyright.Text = 'Coded by AirCrypt'
	$Draw_Point = New-Object System.Drawing.Point
	$Draw_Point.X = 143
	$Draw_Point.Y = 255
	$copyright.Location = $Draw_Point
	$Form1.Controls.Add($copyright)
	
	$Form1.ShowDialog() | Out-Null
}

function Write-TextBox {
  param([string]$text)
  $rtb_text.Text += "$text`n"
}

function ACSII_() {
	
	$data = $input_txt.Text.split(" ")
	foreach ($obj in $data) {
		$ErrorActionPreference = "silentlycontinue"
		$str_dec += [char][int]"$obj"
		
		$oct = [Convert]::ToInt32($obj, 8)
		$str_oct += [char][int]"$oct"
		
		$hex = [Convert]::ToInt32($obj, 16)
		$str_hex += [char][int]"$hex"
	}

	$decimal_txt.Text = $str_dec
	$octal_txt.Text = $str_oct
	$hexadecimal_txt.Text = $str_hex
	
	clear-variable -name str_oct, str_dec, str_hex
}

CreateForm

A new script i've been working on using my ACSII to String function that I scripted in powershell and putting it to use inside of a GUI.

[Image: ibd3qZcndecb0E.png]