LTD Puzzle 11: Hello World! For Hackers

[SQLDenis]

The puzzle this week is a fun puzzle

Create the most unique way of writing "Hello World" - the more fantastic, cryptic, oddball the better

This is the required output: Hello World! - for Hackers

[SQLDenis]

Here is mine, T-SQl, nothing fancy

tsqlLine number Off | Show | Select all

1. SELECT STUFF(CONVERT(VARCHAR,REVERSE(0x21646C726F576F6C6C6548)),6,1,CHAR(32) + RTRIM('W '))+ ' '+
2. SUBSTRING('|-|4c<0r3r',PATINDEX('%-%','|-|4c<0r3r'),1) + LTRIM('               ')
3.  + PARSENAME(REVERSE(' rof .hacker.slacker.codecracker '),10%20/10)+
4. STUFF(STUFF(STUFF('H4ck3r5',2%4,1,'a'),10%20*2/4,1,CHAR(ASCII('emphasis'))),7,1,'s')
5.  + LEFT(STUFF('|-|4c<0r3r',1,10,''),7)

Code is hidden, SHOW

[AlexCuse]

Haven't quite figured out the different list iterators in F# yet, but this does the job:

FSharpLine number Off | Show | Select all

1. #light
2. open System
3.  
4. let message =
5.     "144 303 432 108 222 96 348 111 228 324 400 32 90 96 408 111 228 96 288 97 240 144 456 115 66"
6.  
7. let substrings = String.split[' '] message
8.  
9. substrings|>Seq.fold(fun ctr f->Console.Write ( ((char)(Convert.ToInt32(f, 10) / (ctr % 4 + 1))) ); ctr + 1) 1    
10.  
11. Console.ReadLine()

Code is hidden, SHOW

Kinda surprised of the weak turnout for this one, hopefully it picks up soon!

[tarwn]

I had some ideas, just haven't had the time to put them into code and submit them

[SQLDenis]

That F# stuff does look cool (IMHO)

[AlexCuse]

I knew that you would tarwn

F# is pretty awesome Denis (IMO). The forward pipe operator ("|>") is a thing of beauty, and I really like that you can define methods within the scope of another method (though I guess C# lets you do it now with lambdas). I'm still just getting my feet wet, I can't do a lot of the more complex stuff that I know how to do in C# but it feels like F# is tailored to work with a different kind of complexity anyways.

If you can deal with rather sparse documentation I'd definitely recommend giving it a shot.

[traingamer]

vbLine number Off | Show | Select all

1. Function pstrx()
2. strx = "hellt~~w{vo--;/vor hackerzcrackerz"
3. stry = " "
4. strz = ""
5. For x = 1 To Len(strx)
6. Select Case x
7.     Case Is < 5
8.         strz = Chr(Asc(Mid(strx, x, 1 ^ 4 * 1)))
9.     Case 5 To 16
10.         strz = Chr(Asc(Mid(strx, x, 1 ^ x * 1 ^ x)) - x * 1)
11.     Case 17 To 25
12.         strz = Chr(Asc(Mid(strx, x, 1 ^ (x + x))))
13.     Case Else
14. End Select
15. Select Case Asc(strz)
16.     Case 120
17.         strz = " "
18.     Case 104, 119
19.         strz = Chr(Asc(strz) - (2 ^ 5))
20.     Case Else
21. End Select
22. stry = stry + strz
23. Next x
24. stry = Mid(stry, 1 ^ 11 + 1, 5 ^ 2) + Chr(2 ^ 7 - 13)
25. Debug.Print stry
26. End Function

Code is hidden, SHOW

VBA - just for fun - lots of code that runs but doesn't do much.

textLine number Off | Hide | Select all

1. Hello World! - for Hackers

[rizzo]

A nice simple little bit of key xor cryptography with a subtle shameless plug =D

vbnetLine number Off | Show | Select all

1. Imports System
2.  
3. Module MainMod
4.     Sub Main()
5.         Dim bytes As Byte() = New Byte(){4,49,40,76,61,65,32,4,1,32,48,100,13,114,39,24,25,83,4,53,39,75,55,19,4,74}
6.         Dim key As Byte() = System.Text.Encoding.Ascii.GetBytes("LTD Rawks")
7.         Console.WriteLine(System.Text.Encoding.Ascii.GetString(CryptAsync(bytes,key)))
8.     End Sub
9.  
10.     Public Function CryptAsync(ByVal DataBytes As Byte(),ByVal KeyBytes As Byte()) As Byte()
11.     Dim OutPut As New System.Collections.Generic.List(Of Byte)
12.     Dim k As Integer = 0
13.     For i As Integer = 0 To DataBytes.Length - 1
14.         OutPut.Add(DataBytes(i) Xor KeyBytes(k))
15.         k += 1
16.         If k = KeyBytes.Length Then k = 0
17.     Next i
18.     Return OutPut.ToArray()
19.     End Function
20. End Module
21.  

Code is hidden, SHOW

[mplessing]

This challenge is over a long time, i think - but nonetheless interesting

I wrote the following C-Code, as much cryptic as i can think with the
lowest use of includes ( only for output )

cLine number Off | Show | Select all

1. #include <stdio.h>
2.  
3. int main(int argc, char **argv)
4. {
5.     unsigned int a[] = {0x48,0x1D,7,0,3,0xffffffb1,0x37,\
6.     0x18,3,0xfffffffa,0xfffffff8,0xffffffbd,0xffffffff,\
7.     13,0xfffffff3,0x46,9,3,0xffffffae,0x28,0x19,2,8,\
8.     0xfffffffa,0x0D,1,0xffffff9a,0xfffffffd,0xfffffff6};
9.    
10.     for(argc = 0, *argv[argc]='\0'; argc<sizeof(a)/sizeof(int); argc++) {
11.         *argv[0] += (int)a[argc];
12.         putchar(*argv[0]);
13.     }
14.  
15.     return 0;
16. }
17.  

Code is hidden, SHOW

Works for me on Linux and Windows with switch -Wall

Greetings

Markus

[chrissie1]

All the puzzles stay open for your pleasure, so enjoy.

[gradus]

textLine number Off | Show | Select all

1. #!/usr/bin/ruby -w
2. def to_boog(binary_str);binary_str.gsub(/\s/,'').gsub(/([01]{8})/){
3. |b| b.to_i(2).chr };end;y=to_boog("01110011011011110110110101110010
4. 010010000110010101110011");k=y;cronjon_arr=k.split(//);print cronjon_arr[4]
5. j=cronjon_arr[5];r=to_boog("010011100110111101110010011001100110110
6. 0011011110111001001101011001000000100010001101111011100100110001001
7. 10111101101110");a="Norflork Dorbon";b=7;r=6;x="sphere";m=26760.4/
8. 89.8;morfloot_ar=a.split(//);print j;s="Borg";t=((b-r)+(m/298))/
9. 3.982783627123049382;clislt=t.to_s;as=clislt.split(/, /);if
10. clislt[1].to_s=="46";print "11";end;print morfloot_ar[5]+
11. " ";e="ono";n=3;if(3-3)==0;print "W";end;def smoop;rts='6f 73 68'
12. rts.split(' ').each { |val|val.hex.chr.to_s}end;if s+e+x="Bor"+
13. "go"+"n"+smoop.to_s+"pere";print a[5..6]end;c="Schmorld";d=22
14. floogan_ars=c.split(//);if a[4]=="108";eval 8==22;elsif
15. a[4]=111;print d-21;end;print floogan_ars[7]+"\n"

Code is hidden, SHOW

[Thirster42]

tsqlLine number Off | Show | Select all

1.  
2. DECLARE @cryptstring NVARCHAR(MAX)
3. DECLARE @clearstring NVARCHAR(MAX)
4. DECLARE @blah TABLE (string NVARCHAR(MAX), ID INT IDENTITY(1,1))
5. DECLARE @string NVARCHAR(MAX)
6. DECLARE @i INT
7. DECLARE @COUNT INT
8.  
9. SET @COUNT=26
10. SET @i=1
11. SET @string=''
12. SET @cryptstring='aH9ae784l39-*lap489o98715a 14qp4]8W25as /iaoas8/*-23%rqwer098gjql90sd.9-s&$gdapo!pa0sdf8*!578as5a7/q*-1 +-9A47WR$*4J&8-2A6S9D8F-D+A/Dg APSOLKRHGMA+-$%!fasdfpkqlrmnbidoako+-*/*@#$%!)(&-+87jrmviekflqofhen+$!mp^ WE45v8963q*/+@%$-=0dH3625987458asdf369a+*qaag2136598as24gqwe,lpdocqwerasdfzxcv987654321.0k!@#$*&^%H5986+/*/-.,<>pqe123654789poiqwerlkj;asdfhrvroakfmqir$!#@09425.0peir$s'
13.  
14. WHILE (@i<=@COUNT)
15. BEGIN
16.  
17.     SET @cryptstring=RIGHT(@cryptstring,LEN(@cryptstring)-@i)
18.     SET @string=@string+LEFT(@cryptstring,1)
19.     SET @cryptstring=RIGHT(@cryptstring,LEN(@cryptstring)-1)
20.  
21.     SET @i=@i+1
22. END
23.  
24. SELECT @string
25.  
26.  

Code is hidden, SHOW