SRL Archive - SRL Archives

Binary to Decimal

// Converts Binary to Decimal.
// Made by Ron. :)
function BinToDec(Str : string) : integer;
var
  i : integer;
begin
  if(Length(Trim(Str)) = 0)then
    Exit;
  for i := 1 to Length(Str) do
    Result := Result*2 + StrToInt(Str[i]);
end;

Decimal to Binary

// Converts Decimal to Binary.
// Made by Ron. :)
function DecToBin(Number : integer) : string;
begin
  while Number > 1 do
  begin
    Result := IntToStr(Number mod 2)+Result;
    Number := Number/2;
  end;
  Result := '1' + Result;
end;

~Ron

Thats cool, except could you give a case in which you would use it? Thanks

-Ejj

Here's one case. When you want to convert binary to decimal or vice versa. :)

Seriously though. Hmm. Well for fun I made an encrypt/decrypt procedure lol. Here they are. They use the above functions.

// Encrypts the string by converting each letter to binary.
// Made by Ron :)
function Encrypt(Str : string) : string;
var
  i : integer;
begin
  if(Length(Trim(Str)) = 0)then
    Exit;
  for i := 1 to Length(Str) do
    Result := Result + DecToBin(Ord(Str[i])) + '-';
end;

// Decrypts each binary letter and creates the original string.
// Made by Ron :)
function Decrypt(Str : string) : string;
begin
  while pos('-',Str) > 0 do
  begin
    Result := Result + chr(BinToDec(copy(Str,1,pos('-',Str)-1)));
    delete(Str,1,pos('-',Str));
  end;
end;

~Ron :)

Hm, I can't get it to work :\

Successfully compiled
Successfully exctecuted (sp?)

So ya. :\

Run this. And change the Text to whatever you want and it will encrypt and decrypt it.

program TestBinaryAndEncryptFunctionsByRon;

const
  Text = 'lolwow';

var
  i : integer;

function DecToBin(Number : integer) : string;
begin
  while Number > 1 do
  begin
    Result := IntToStr(Number mod 2)+Result;
    Number := Number/2;
  end;
  Result := '1' + Result;
end;

function BinToDec(Str : string) : integer;
var
  i : integer;
begin
  if(Length(Trim(Str)) = 0)then
    Exit;
  for i := 1 to Length(Str) do
    Result := Result*2 + StrToInt(Str[i]);
end;

function Encrypt(Str : string) : string;
var
  i : integer;
begin
  if(Length(Trim(Str)) = 0)then
    Exit;
  for i := 1 to Length(Str) do
    Result := Result + DecToBin(Ord(Str[i])) + '-';
end;

function Decrypt(Str : string) : string;
begin
  while pos('-',Str) > 0 do
  begin
    Result := Result + chr(BinToDec(copy(Str,1,pos('-',Str)-1)));
    delete(Str,1,pos('-',Str));
  end;
end;

begin
  ClearDebug;
  WriteLn('Encrypted: '+Encrypt(Text));
  WriteLn('Decrypted: '+Decrypt(Encrypt(Text)));
end.

Wow, thats pretty sweet, except I don't get where'd u'd use it in a scripting situation. but ya my name is…

1100101-1100001-1110010-1101100-

lol

ummmmmm

my name is:

1010100-1101000-1100101-1011111-1000100-1100001-1110010-1101011-1011111-1010011-1101110-1101001-1110000-1100101-1110010-

my name is so big…..

Haha glad you guys like it now.

So ejjiman's name is earl. :)

The_Dark_Sniper, nice.

Lol thats my name, dont u forget it :P How do you convert back? Oh, I think I could figure it out :P

EDIT: Oh easy lol

The_dark_sniper's identity will be kept secret for yet another day…

1110100-110011-1101000-1101100-110011-110011-1110100-1101110-110000-110000-1100010-100000-1101111-1110111-1101110-1110011-100000-1111001-1101111-1110101-
wow i have a long name :P

Encrypted: Chuck Norris
Decrypted: Chuck Norris

Looks like my name is un-cryptable

From: Cheesehunk

Encrypted: Chuck Norris
Decrypted: Chuck Norris

Looks like my name is un-cryptable

Pwnd IRL >.<

From: Cheesehunk

Encrypted: Chuck Norris
Decrypted: Chuck Norris

Looks like my name is un-cryptable

That made my day…

Liar!

1000011-1101000-1110101-1100011-1101011-100000-1001110-1101111-1110010-1110010-1101001-1110011-100000-1101010-1101111-1101011-1100101-1110011-100000-1110011-1110101-1100011-1101011-100001-100000-1010011-1101111-1110010-1110010-1111001-101100-100000-1100010-1110101-1110100-100000-1110100-1101000-1100101-1111001-100000-1101010-1110101-1110011-1110100-100000-1101110-1100101-1110110-1100101-1110010-100000-1101101-1100001-1101011-1100101-100000-1100001-1101110-1111001-100000-1110011-1100101-1101110-1110011-1100101-100001-