39 replies to this topic

[jonny]

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

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

[The Naked General]

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

[MasterFocus]

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

}

[Eedis]

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

[tomoe_uehara]

Isn't it great? Our computer could do this and that, just because of numerous 0's and 1's.

[AutoPepe]

No estoy de acuerdo con la línea 85. Le falta un cero. Y es una pena ahora que todo estaba perfecto.

:roll: