My signature

[iago]

Has anybody (without using a ROT13 converter) actually bothered to figure out what my signature means? I'm getting tired of it, but I want somebody to decode it first :(

[Quik]

I tried, but gave up after a bit.

[rabbit]

Awesome.  It's simple character replacement, one I figured that out I just cracked some of the smaller words until I got a full conversion going. :)

[Quik]

I got it now. Damn, you're an asshole iago.

[Towelie]

I agree with the jew. :-P

[iago]

Haha, I love you all :)

[rabbit]

It didn't take too long to figure out, only about 5-6 mins.

[Mythix]

x86] link=topic=1233.msg9704#msg9704 date=1115266172]
I agree with the jew. :-P

Repent now!


I can't view signatures, so I'd say.. Yes I cracked it like an eggshell hitting the skillet.

[deadly7]

Someone tell me, I'm too lazy to make something to decodeded it.

[Blaze]

I knew what it was the first time I looked at it. ROT-13 is what me and my friends use for passing notes in class. Look at my signature too.

[Joe]

ROT-13 for passing notes in class? I just use leetspeak. ROT-25 is easier to figure out, but equally hard to understand at first sight.

EDIT:

Code Select Expand

joe@Pie:~$ rot13
Pbatenghyngvbaf, V whfg jnfgrq frireny frpbaqf (be zvahgrf) bs lbhe gvzr.  Ohg qba'g gryy nalobql, yrg gurz jnfgr gurve gvzr!
Congratulations, I just wasted several seconds (or minutes) of your time.  But don't tell anybody, let them waste their time!

EDIT2: Look what I made for you!

Code Select Expand

'---------------------------------------------------------------------------------------
' Module    : modROT13
' Author    : Joe[x86]
' Purpose   : Conduct ROT13 encoding on messages.
'---------------------------------------------------------------------------------------

Private Const Ualphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Private Const Lalphabet = "abcdefghijklmnopqrstuvwxzy"

'---------------------------------------------------------------------------------------
' Procedure : ROT13
' Author    : Joe[x86]
' Purpose   : Do the actual encoding.
'---------------------------------------------------------------------------------------

Public Function ROT13(s) As String
    'On Error GoTo Hell
    Dim Ret As String, i As Integer
    For i = 1 To Len(s)
        If InStr(1, Ualphabet, UCase(Mid(s, i, 1))) Then
            If GetCase(Mid(s, i, 1)) Then
                'Position = InStr(1, Ualphabet, Mid(s, i, 1))
                Position = IIf(InStr(1, Lalphabet, Mid(s, i, 1)) + 13 > 26, InStr(1, Lalphabet, Mid(s, i, 1)) + 13 - 26, InStr(1, Lalphabet, Mid(s, i, 1)) + 13)
                Ret = Ret & Mid(Ualphabet, Position, 1)
            Else
                'Position = InStr(1, Lalphabet, Mid(s, i, 1))
                Position = IIf(InStr(1, Lalphabet, Mid(s, i, 1)) + 13 > 26, InStr(1, Lalphabet, Mid(s, i, 1)) + 13 - 26, InStr(1, Lalphabet, Mid(s, i, 1)) + 13)
                Ret = Ret & Mid(Lalphabet, Position, 1)
            End If
        Else
            Ret = Ret & Mid(s, i, 1)
        End If
    Next i
   
    ROT13 = Ret

    Exit Function
'Hell:
    'Call MsgBox("Error " & Err.Number & " (" & Err.Description & ") in procedure ROT13 of Module modROT13")
End Function

'---------------------------------------------------------------------------------------
' Procedure : GetCase
' Author    : Joe[x86]
' Purpose   : Returns wether the letter is uppercase or not as a boolean.
'---------------------------------------------------------------------------------------

Public Function GetCase(s) As Boolean
    On Error GoTo Hell

    If LCase(s) = s Then
        GetCase = False
    Else
        GetCase = True
    End If
   
    Exit Function
Hell:
    Call MsgBox("Error " & Err.Number & " (" & Err.Description & ") in procedure GetCase of Module modROT13")
End Function


[rabbit]

Go PHP!!

Code Select Expand

<?php	function decrot13($str)	{		$arr1 = array('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',                                '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');		$arr2 = array('N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',                               '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',                               'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm');		return str_replace($arr1, $arr2, $str);	}	function encrot13($str)	{		$arr1 = array('N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',                               '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',                               'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm');		$arr2 = array('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',                                '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');		return str_replace($arr1, $arr2, $str);	}?>

[iago]

Jesus your languages suck!

C (normal)

int main ()
{
  register char byte, cap;
  for(;read (0, &byte, 1);)
    {
      cap = byte & 32;
      byte &= ~cap;
      byte = ((byte >= 'A') && (byte <= 'Z') ? ((byte - 'A' + 13) % 26 + 'A') :
byte) | cap;
      write (1, &byte, 1);
    }
}

C (fast):

char
table[]={0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,
27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53
,54,55,56,57,58,59,60,61,62,63,64,78,79,80,81,82,83,84,85,86,87,88,89,90,65,66,6
7,68,69,70,71,72,73,74,75,76,77,91,92,93,94,95,96,110,111,112,113,114,115,116,11
7,118,119,120,121,122,97,98,99,100,101,102,103,104,105,106,107,108,109,123,124,1
25,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,1
45,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,1
65,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,1
85,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204,2
05,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,2
25,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,2
45,246,247,248,249,250,251,252,253,254,255};

int main() {
   register char c;
   
   while(read(0,&c,1)){
        write(1,&table[c],1);
   }
}

C (evil):

main(a){while(a=~getchar())putchar(~a-1/(~(a|32)/13*2-11)*13);}

Perl (normal):

#!/usr/bin/perl -p
y/A-Za-z/N-ZA-Mn-za-m/;

Perl (fast):

#!/usr/bin/perl
foreach ('a'..'m', 'A'..'M') {
    $q = chr(ord($_)+13);
    $p{$_} = $q; $p{$q} = $_;
}
while (<>) { s#(.)#$p{$1}#g; print; }

Perl (evil):

#!/usr/bin/perl -p
BEGIN { @a = split //, "/-35753=?=357"x2; }
s.([a-zA-Z]).ord $1<97?uc($1^$a[ord($1)-65]):lc($1^$a[ord($1)-97]).ge;

Assembly (ugly):

.file "rot13.S"
.section    .rodata
    .align 4
table:                          /* static lookup table */
    .byte
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,
30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56
,57,58,59,60,61,62,63,64,78,79,80,81,82,83,84,85,86,87,88,89,90,65,66,67,68,69,7
0,71,72,73,74,75,76,77,91,92,93,94,95,96,110,111,112,113,114,115,116,117,118,119
,120,121,122,97,98,99,100,101,102,103,104,105,106,107,108,109,123,124,125,126,12
7,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,14
7,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,16
7,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,18
7,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,20
7,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,22
7,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,24
7,248,249,250,251,252,253,254,255
.text
    .align 4
.globl rot13
    .type rot13,@function
rot13:
    movl 4(%esp), %eax
    xorl %ebx, %ebx
L1: movb (%eax), %dl            /* slurp not-so-loudly */
    orb %dl, %dl
    jz L2
    movb %dl, %bl
    movb table(%ebx), %dl
    movb %dl, (%eax)
    incl %eax
    jmp L1
L2: xorb %dl, %dl
    movb (%eax), %dl
    ret
.Lfe1:
    .size rot13,.Lfe1-rot13

Java (ugly):

public class rot13 {
  public static void main (String args[]) throws Exception {
    int abyte = 0;
    while((abyte = System.in.read())>=0) {
      int cap = abyte & 32;
      abyte &= ~cap;
      abyte = ((abyte >= 'A') && (abyte <= 'Z') ? ((abyte - 'A' + 13) % 26 + 'A'
) : abyte) | cap;
      System.out.print(String.valueOf((char)abyte));
    }
    System.out.flush();
  }
}

For every language you could imagine,
http://www.miranda.org/~jkominek/rot13/

[rabbit]

No Visual BASIC, only REAL and Quick :P

[iago]

I think the syntax would be the same, isn't it?

But VB isn't a real language anyway, it doesn't count :)