Encryption

    
void encrypt(char* string)
{
for (int i=0; i string = string<i> ^ ENCRYPT_LEVEL;
}

void unencrypt(char* string)
{
for (int i=0; i string[i] = string[i] ^ ENCRYPT_LEVEL;
}

    

    
Private Sub Command1_Click()
If Text1.Text = "" Then GoTo BadMonkey
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""

NumDots = 0

For j = 1 To 256
If Mid$(Text1.Text, j, 1) = "." Then NumDots = NumDots + 1
Next
If NumDots <> 4 Then GoTo BadMonkey

Dim TempBinary(1024)
Dim ConvBinary(8)

ConvBinary(1) = 0
ConvBinary(2) = 1
ConvBinary(3) = 0
ConvBinary(4) = 0
ConvBinary(5) = 0
ConvBinary(6) = 0
ConvBinary(7) = 1
ConvBinary(8) = 1


j = 1
t = 0
NumDot = 0
OldT = 1
While NumDot < 4

If Mid$(Text1.Text, j, 1) = "." Then
    NumDot = NumDot + 1
        
       If NumDot > 1 Then
         For q = OldT To t Step 8
             temp = 0
             For k = 0 To 7
                 temp = temp + 2 ^ (7 - k) * TempBinary(q + k - 1)
             Next
             If NumDot = 2 Then Text6.Text = Text6.Text + Chr(temp)
             If NumDot = 3 Then Text8.Text = Text8.Text + Chr(temp)
             If NumDot = 4 Then Text9.Text = Text9.Text + Chr(temp)
         Next
         
         OldT = t + 1
        End If
Else
    
    For b = 1 To 64
        If Mid$(Text1.Text, j, 1) = Base64$(b) Then
        temp = b - 1
        StartComp = 32
        
        For k = 1 To 6
            If temp >= StartComp Then
                temp = temp - StartComp
                TempBinary(t) = 1
            Else
                TempBinary(t) = 0
            End If
            StartComp = StartComp / 2
            
            Text3.Text = Text3.Text & TempBinary(t)
            Text4.Text = Text4.Text & ConvBinary(t Mod 8 + 1)
            If TempBinary(t) <> ConvBinary(t Mod 8 + 1) Then TempBinary(t) = 1 Else TempBinary(t) = 0
            Text5.Text = Text5.Text & Chr$(TempBinary(t) + 48)
            t = t + 1
        Next
        End If
    Next
End If
    
    j = j + 1
Wend



GoTo DoneMonkey

BadMonkey:
Text1.Text = "Scan A BarCode stupid!"

DoneMonkey:
Text7.Text = Text1.Text
Text1.Text = ""
Text1.SetFocus
End Sub

    

    
#include <stdio.h>
char codepad[256][256];

void make_codepad(void)
{
     int x, y;
     char c;
     for(y=0;y<256;y++){            //256 character set

          for(x=0;x<256;x++){
               c=(y*256)+x;
               while(c>=256) c-=256;
               codepad[y][x]=c;
          }
     }
}

char encrypt(char data, char key)
{
     char code;
     code=codepad[key][data];
     return code;
}

char decrypt(char code, char key)
{
     char data;
     int y;
     for(y=0;y<256;y++){
          if(code==codepad[y][key]) data=y;
     }
     return data;
}

void main()
{
     char data[6]="Hello";
     char data2[6];
     char key[6]="Howdy";
     char code[6];
     int n;
     for(n=0;n<6;n++){
          code[n]=encrypt(data[n],key[n]);
          printf("%c",code[n]);
     }
     putchar(10);
     for(n=0;n<6;n++){
          data2[n]=decrypt(code[n],key[n]);
          printf("%c",data2[n]);
     }
     putchar(10);
}