Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate

011000010110100001101011001000000111001001110101011011000110


  • Please log in to reply
39 replies to this topic
BoBo
  • Guests
  • Last active:
  • Joined: --

0100001001101001011011100110000101110010011110010010000001010100011010010110110101100101

[0100010001101111011101110110111001101100011011110110000101100100]

8)

jonny
  • Members
  • 2951 posts
  • Last active: Feb 24 2008 04:22 AM
  • Joined: 13 Nov 2004

010001000110111101101110001001110111010000100000011010000110000101101100011001100010110101100001001010100010101000100000011010010111010000101110001011100010111000100000001110100010110101000100
http://www.thinkgeek...es/lights/59e0/

0100111101110010001011000010000001101001011001100010000001111001011011110111010100100000011100000111001001100101011001100110010101110010
http://www.thinkgeek...s/watches/6a17/



BoBo
  • Guests
  • Last active:
  • Joined: --
Posted Image

[0100010001101111011101110110111001101100011011110110000101100100]

  • Guests
  • Last active:
  • Joined: --
01001000 01100101 01111001 00100000 01110100 01101000 01100101 00100000 01101100 01101001 01101110 01101011 00100000 01101001 01110011 00100000 01100100 01101111 01110111 01101110 00101110 00101110 00101110 00001101 00001010 01001000 01100101 01110010 01100101 00100000 01101001 01110011 00100000 01100001 00100000 01101110 01100101 01110111 00100000 01101111 01101110 01100101 00111010 00001101 00001010


The Naked General
  • Members
  • 21 posts
  • Last active: Jan 27 2012 02:41 AM
  • Joined: 22 Feb 2009
;LAWLERFACE!
msgbox press esc to exit`nLAWLERSKATING IN BINARY!

+A::SEND 01000001
return
+B::SEND 01000010
return
+C::SEND 01000011
return
+D::SEND 01000100
return
+E::SEND 01000101
return
+F::SEND 01000110
return
+G::SEND 01000111
return
+H::SEND 01001000
return
+I::SEND 01001001
return
+J::SEND 01001010
return
+K::SEND 01001011
return
+L::SEND 01001100
return
+M::SEND 01001101
return
+N::SEND 01001110
return
+O::SEND 01001111
return
+P::SEND 01010000
return
+Q::SEND 01010001
return
+R::SEND 01010010
return
+S::SEND 01010011
return
+T::SEND 01010100
return
+U::SEND 01010101
return
+V::SEND 01010110
return
+W::SEND 01010111
return
+X::SEND 01011000
return
+Y::SEND 01011001
return
+Z::SEND 01011010
return
a::SEND 01100001
RETURN
b::SEND 01100010
RETURN
c::SEND 01100011
RETURN
d::SEND 01100100
RETURN
e::SEND 01100101
RETURN
f::SEND 01100110
RETURN
g::SEND 01100111
RETURN
h::SEND 01101000
RETURN
i::SEND 01101001
RETURN
j::SEND 01101010
RETURN
k::SEND 01101011
RETURN
l::SEND 01101100
RETURN
m::SEND 01101101
RETURN
n::SEND 01101110
RETURN
o::SEND 01101111
RETURN
p::SEND 01110000
RETURN
q::SEND 01110001
RETURN
r::SEND 01110010
RETURN
s::SEND 01110011
RETURN
t::SEND 01110100
RETURN
u::SEND 01110101
RETURN
v::SEND 01110110
RETURN
w::SEND 01110111
RETURN
x::SEND 01111000
RETURN
y::SEND 01111001
RETURN
z::SEND 01111010
esc::exitapp

:shock:
"lol, i made this thing, but it didn't work... so I read the forums and now it does!"

MasterFocus
  • Moderators
  • 4323 posts
  • Last active: Jan 28 2016 01:38 AM
  • Joined: 08 Apr 2009
Loop, 26 ; 26 letters

{

  ; lowercase offset is 96

  Hotkey, % Chr(A_Index+96), MyLabel

  ; uppercase offset is 64 (required for MyLabel to work)

  Hotkey, % "+" Chr(A_Index+64), MyLabel

}

Return



;-----------------



MyLabel:

  Send, % TxtToBin(SubStr(A_ThisHotkey,0))

Return



;-----------------



TxtToBin(txt) { ; http://www.autohotkey.com/forum/viewtopic.php?p=51867#51867

   Loop Parse, txt

      Loop 8

         bin := bin (Asc(A_LoopField) >> (8 - A_Index) & 1)

   Return bin

}

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Antonio França -- git.io -- github.com -- ahk4.net -- sites.google.com -- ahkscript.org

Member of the AHK community since 08/Apr/2009. Moderator since mid-2012.


Eedis
  • Members
  • 1775 posts
  • Last active: Aug 14 2015 06:33 PM
  • Joined: 12 Jun 2009
I have a program quite similar here. Except it does Leet, Binary, Morse Code, an the Ong language.

a:
gui, destroy

SetBatchLines -1   ; here for the complete script
setkeydelay 0      ; or -1 for the send speed

lower_type0 = {4},13,(,1),3,f,g,|-|,|,j,1<,1,/\/\,|\|,0,p,q,12,5,7,u,\/,\/\/,x,y,2              ; ,...
lower_type1 = {a},bong,cong,dong,e,fong,gong,hong,i,jong,kong,long,mong,nong,o,pong,qong,rong,song,tong,u,vong,wong,xong,yong,zong            ; ,...
lower_type2 = .-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.,---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--..             ; ,...
lower_type3 = 01100001,01100010,01100011,01100100,01100101,01100110,01100111,01101000,01101001,01101010,01101011,01101100,01101101,01101110,01101111,01110000,01110001,01110010,01110011,01110100,01110101,01110110,01110111,01111000,01111001,01111010   ; ,...
lower_type4 = 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

upper_type0 = {4},13,(,1),3,f,g,|-|,|,j,1<,1,/\/\,|\|,0,p,q,12,5,7,u,\/,\/\/,x,y,2              ; ,...
upper_type1 = {A},Bong,Cong,Dong,E,Fong,Gong,Hong,I,Jong,Kong,Long,Mong,Nong,O,Pong,Qong,Rong,Song,Tong,U,Vong,Wong,Xong,Yong,Zong            ; ,...
upper_type2 = .-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.,---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--..             ; ,...
upper_type3 = 01000001,01000010,01000011,01000100,01000101,01000110,01000111,01001000,01001001,01001010,01001011,01001100,01001101,01001110,01001111,01010000,01010001,01010010,01010011,01010100,01010101,01010110,01010111,01011000,01011001,01011010   ; ,...
upper_type4 = 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

stringsplit, lower_t0_, lower_type0, `,
stringsplit, lower_t1_, lower_type1, `,
stringsplit, lower_t2_, lower_type2, `,
stringsplit, lower_t3_, lower_type3, `,
stringsplit, lower_t4_, lower_type4, `,

stringsplit, upper_t0_, upper_type0, `,
stringsplit, upper_t1_, upper_type1, `,
stringsplit, upper_t2_, upper_type2, `, 
stringsplit, upper_t3_, upper_type3, `,
stringsplit, upper_t4_, upper_type4, `,

var1 = 4

Gui, Color, FF8040
Gui, Font, S8 CGreen, Papyrus
Gui, Add, Text, x6 y90 w370 h90 , Welcome to TransxXx that was created by Eedis. Please select your translation language`, press = to temporarily turn the program off to go back to regular typing`, and also use - to return to the previous screen to select a new language. You can also use the edit fields to the right to translate your code the old fashion way. Thank you`, and please enjoy. :) :)
Gui, Font, S12 CGreen Bold, Quick Type II
Gui, Add, Text, x6 y180 w370 h30 , ___________________________________________________-
Gui, Add, Text, x6 y220 w100 h30 , Leet
Gui, Add, Text, x6 y270 w100 h30 , Ong
Gui, Add, Text, x6 y320 w110 h30 , Morse Code
Gui, Add, Text, x6 y370 w100 h30 , Binary
Gui, Add, Button, x256 y220 w120 h30 , 1337
Gui, Add, Button, x256 y270 w120 h30 , Ononggong
Gui, Add, Button, x256 y320 w120 h30 , .-..---.-..--..
Gui, Add, Button, x256 y370 w120 h30 , 01100101
Gui, Add, Text, x106 y270 w150 h30 , ----------------------------------------------------
Gui, Add, Text, x116 y320 w140 h30 , ----------------------------------------------------
Gui, Add, Text, x106 y370 w150 h30 , ----------------------------------------------------
Gui, Add, Button, x146 y410 w100 h30 , Exit
Gui, Font, S8 CGreen, Verdana
Gui, Add, Text, x106 y230 w150 h30 , ----------------------------------------------------
Gui, Font, S12 CGreen Bold, Quick Type II
Gui, Add, Edit, x385 y19 w310 h150 vCodeHere, Type the sentence here...
Gui, Add, Button, x386 y180 w50 h50 , Leet
Gui, Add, Button, x446 y180 w70 h50 , Ong
Gui, Add, Button, x526 y180 w70 h50 , Morse Code
Gui, Add, Button, x606 y180 w80 h50 , Binary
Gui, Add, Edit, x386 y240 w310 h190 vResults, Your results are displayed here...
Gui, Font, S42 CGreen Bold Strike, curlz mt
Gui, Add, Text, x46 y190 w200 h-120 , __________________________________________
Gui, Add, Text, x6 y30 w370 h60 +Center, _________________________________________________
Gui, Add, Text, x26 y10 w330 h70 +Center, Trans-XxX
Gui, Show, x446 y109 w710 h448, Trans-xXx
Return

buttonexit:
exitapp

button1337:
{
var1 = 0
gui, hide
}
return

buttonononggong:
{
var1 = 1
gui, hide
}
return

button.-..---.-..--..:
{
var1 = 2
gui, hide
}
return

button01100101:
{
var1 = 3
gui, hide
}
return

ButtonLeet:
ButtonOng:
ButtonMorseCode:
ButtonBinary:
Gui, Submit, NoHide

If (A_ThisLabel = "ButtonLeet")
   ILabel := 0
Else If (A_ThisLabel = "ButtonOng")
   ILabel := 1
Else If (A_ThisLabel = "ButtonMorseCode")
   ILabel := 2
Else If (A_ThisLabel = "ButtonBinary")
   ILabel := 3
Else  ; Should never happen.
   Return

Results := ""
Loop, Parse, CodeHere
{
   IChar := Asc(A_LoopField)
   If (IChar > 96 And IChar < 123) {  ; Lower case.
      IChar -= 96
      Results .= lower_t%ILabel%_%IChar%
      Continue
   }
   If (IChar > 64 And IChar < 91) {  ; Upper case.
      IChar -= 64
      Results .= upper_t%ILabel%_%IChar%
      Continue
   }
   Results .= A_LoopField  ; Nothing to replace.
}
Guicontrol, , Results, %Results% ; Update gui.
Return

$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::

thiskey := asc(substr(a_thishotkey, 2, 1)) - 96
if var1 = 0
  send % lower_t0_%thiskey%
if var1 = 1
  send % lower_t1_%thiskey%
if var1 = 2
  send % lower_t2_%thiskey%
if var1 = 3
  send % lower_t3_%thiskey%
if var1 = 4
  send % lower_t4_%thiskey%
return

; upper case
$+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::
thiskey := asc(substr(a_thishotkey, 3, 1)) - 96       
if var1 = 0
  send % upper_t0_%thiskey%
if var1 = 1
  send % upper_t1_%thiskey%
if var1 = 2
  send % upper_t2_%thiskey%
if var1 = 3
  send % upper_t3_%thiskey%
if var1 = 4
  send % upper_t4_%thiskey%
return

$space::

if var1 = 0
  send {space}
if var1 = 1
  send {space}
if var1 = 2
  send /
if var1 = 3
  send 01000000
if var1 = 4
  send {space}
return

$=::suspend
$-::      ; - awakes the script even from suspend
suspend
suspend off
goto a
return

AutoHotkey state, the forum, Poly, and Drainx1. The short story.
I love my wife, my life, my atomic-match; for giving me the greatest gift a man could ask for, such a perfect and beautiful little girl.
9rjbjc.png

tomoe_uehara
  • Members
  • 2166 posts
  • Last active: Jun 11 2015 05:33 PM
  • Joined: 05 Sep 2009
Isn't it great? Our computer could do this and that, just because of numerous 0's and 1's.

1)124_g0|\|
  • Guests
  • Last active:
  • Joined: --
010011100110111101110111010000000110100101110011010000000111010001101000011001010100000001110100011010010110110101100101
..-.---.-./.-.-...-../--.-------../--.-.
tongo congomonge tongo tonghonge aidong
0f 7|-|3|12 (0/\/\/\/\u|\||7y!

1)0|\|3 u5||\|g 331)|5 1|7713 p120g124/\/\!!! .--.--.--/-------/-.-.------.-..!!!

Now that is wild, Eeidis!

AutoPepe
  • Members
  • 328 posts
  • Last active: Aug 17 2018 10:49 AM
  • Joined: 01 Jun 2007
No estoy de acuerdo con la línea 85. Le falta un cero. Y es una pena ahora que todo estaba perfecto.

:roll: