LetMeFinclOut, on 10 January 2011 - 11:46 PM, said:
Dogstopper, on 10 January 2011 - 10:03 AM, said:

Too much fun, indeed.
And +1 for the XKCD reference.
Haha that XKCD comic is my wallpaper at work... I had hoped someone would catch it.
Posted 11 January 2011 - 07:28 AM
LetMeFinclOut, on 10 January 2011 - 11:46 PM, said:
Dogstopper, on 10 January 2011 - 10:03 AM, said:
Posted 01 March 2011 - 12:44 PM
Posted 01 March 2011 - 02:27 PM
Posted 28 September 2011 - 01:19 PM
Imports System.Text Public Class Form1 Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click Dim sb As New StringBuilder Dim ar() As Object = {" ", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9} Dim i As Integer Integer.TryParse(ar(36).ToString & ar(36).ToString,i) While i>0 With sb If i=1 then .Append(i.ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27)))) .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))) .Append(ar(Integer.Parse(ar(35).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))).AppendLine .Append(i.ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27)))) .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Appendline .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(28).ToString))) .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(31).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(33).ToString))) .Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))) .Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(36).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))) .Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(28).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).AppendLine .Append((i-1).ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27)))) .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))) .Append(ar(Integer.Parse(ar(35).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))).AppendLine.AppendLine Else .Append(i.ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27)))) .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))) .Append(ar(Integer.Parse(ar(35).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))).AppendLine .Append(i.ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27)))) .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Appendline .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(28).ToString))) .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(31).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(33).ToString))) .Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))) .Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(36).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))) .Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(28).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).AppendLine .Append((i-1).ToString).Append(ar(Integer.Parse(ar(27).tostring))).Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(36).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27)))) .Append(ar(Integer.Parse(ar(29).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(35).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(32).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(31).ToString))).Append(ar(Integer.Parse(ar(27).ToString))).Append(ar(Integer.Parse(ar(29).ToString & ar(27).ToString))) .Append(ar(Integer.Parse(ar(35).ToString))).Append(ar(Integer.Parse(ar(32).ToString))).Append(ar(Integer.Parse(ar(27).ToString))) .Append(ar(Integer.Parse(ar(29).ToString & ar(30).ToString))).Append(ar(Integer.Parse(ar(28).ToString))).Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))) .Append(ar(Integer.Parse(ar(28).ToString & ar(29).ToString))).AppendLine.AppendLine End If End With i-=1 End While RichTextBox1.Text = sb.ToString End Sub End Class
This post has been edited by Psyguy: 28 September 2011 - 01:24 PM
Posted 30 September 2011 - 10:41 AM
Posted 01 December 2011 - 07:57 PM
Module Module1 Sub Main() Dim sVal As Object = "¬ÉÐÐÓ„»ÓÖÐÈ" Console.WriteLine("unobfuscated: " & unobfus(sVal)) Console.WriteLine("obfuscated: " & obfus(unobfus(sVal))) Stop End Sub Function obfus(ByVal sInput As Object) As String Dim sRet As String = "" For i As Integer = 0 To sInput.Length - 1 sRet = sRet & Chr(Asc(sInput.Substring(i, 1)) + 100) Next Return sRet End Function Function unobfus(ByVal sInput As Object) As String Dim sRet As String = "" For i As Integer = 0 To sInput.Length - 1 sRet = sRet & Chr(Asc(sInput.Substring(i, 1)) - 100) Next Return sRet End Function End Module
Posted 01 December 2011 - 09:24 PM
ranthi, on 02 December 2011 - 02:00 PM, said:
Module Module1 Sub Main() Dim sVal As Object = "¬ÉÐÐÓ„»ÓÖÐÈ" Array.ForEach(sVal.ToString().ToArray(), Sub(c) Console.WriteLine(Chr(Asc(c) - 100))) End Sub End Module
Posted 03 December 2011 - 09:54 PM
Posted 03 December 2011 - 10:34 PM
Dim h As String = "h" Dim e As String = "e" Dim l2 As String = "l" Dim l As String = "l" Dim o As String = "o" Dim space As String = " " Dim hello As String = "hello" Dim w As String = "w" Dim o2 As String = "o" Dim r As String = "r" Dim l3 As String = "l" Dim d As String = "w" Dim world As String = "world" Dim helloworld As String = "hello world" Dim msg As String = h & e & l2 & l & o & space & w & o2 & r &l3 & d MsgBox("Hello World") MsgBox(msg) MsgBox(hello & world) MsgBox(helloworld)
Posted 03 December 2011 - 11:26 PM
jimmyBo, on 04 December 2011 - 03:34 PM, said:
Dim h As String = "h" Dim e As String = "e" Dim l2 As String = "l" Dim l As String = "l" Dim o As String = "o" Dim space As String = " " Dim hello As String = "hello" Dim w As String = "w" Dim o2 As String = "o" Dim r As String = "r" Dim l3 As String = "l" Dim d As String = "[b]d[/b]" Dim world As String = "world" Dim helloworld As String = "hello world" Dim msg As String = h & e & l2 & l & o & space & w & o2 & r &l3 & d MsgBox("Hello World") MsgBox(msg) MsgBox(hello & world) MsgBox(helloworld)
Posted 04 December 2011 - 10:10 AM
AdamSpeight2008, on 03 December 2011 - 09:54 PM, said:
Posted 04 December 2011 - 01:40 PM
Module Module1 Sub Main() Dim hworld As New hworld Console.WriteLine(hworld.getWorld()) End Sub Class hworld Private Property sH As String = "H" Private Property sO As String = "o" Private Property sE As String = "e" Private Property sL As String = "l" Private Property sW As String = "W" Private Property sR As String = "r" Private Property sD As String = "d" Private Property sSp As String = " " Public Function getWorld() As String Return Me.getH() & Me.getE() & Me.getL() & Me.getL() & Me.getO() & Me.getSp() & Me.getW() & Me.getO() & Me.getR() & Me.getL() & Me.getD() End Function Private Function getH() As Char Return Convert.ToChar(sH) End Function Private Function getE() As Char Return Convert.ToChar(sE) End Function Private Function getL() As Char Return Convert.ToChar(sL) End Function Private Function getO() As Char Return Convert.ToChar(sO) End Function Private Function getSp() As Char Return Convert.ToChar(sSp) End Function Private Function getW() As Char Return Convert.ToChar(sW) End Function Private Function getR() As Char Return Convert.ToChar(sR) End Function Private Function getD() As Char Return Convert.ToChar(sD) End Function End Class End Module
Posted 19 February 2015 - 10:17 PM
Module Module1 Dim str As String Dim u As Char Dim pl As Char Dim l As Char Dim o As Char Dim sp As Char Dim w As Char Dim r As Char Dim d As Char Dim ex As Char Sub Main() Dim num As Integer = 0 vbint: num -= -1 If Not num = 36 * (1 + 1) Then GoTo vbint End If u = Chr(num) num = 0 Do Until num = 101 num -= -1 Loop pl = Chr(num) num = 0 Do Until num = 108 num -= -1 Loop l = Chr(num) num = 0 Do Until num = 111 num -= -1 Loop o = Chr(num) num = 0 Do Until num = 119 num -= -1 Loop w = Chr(num) num = 0 Do Until num = 32 num -= -1 Loop sp = Chr(num) num = 0 Do Until num = 114 num -= -1 Loop r = Chr(num) num = 0 Do Until num = 100 num -= -1 Loop d = Chr(num) num = 0 Do Until num = 33 num -= -1 Loop ex = Chr(num) vbDoTasks(1) End Sub Sub vbDoTasks(ByVal consoIe As Integer) Dim num As Integer = 0 Do Until num = consoIe str = u & pl & l & l & o & sp & w & o & r & l & d & ex Console.WriteLine(str.ToString) Console.Read() num -= -1 Loop End Sub End Module