Sign in to follow this  
Followers 0
program builder

Help with Decoder

2 posts in this topic

#1 ·  Posted (edited)

This may sound impossible, but I would like to create an offline blogger, where all you need is the program downloaded onto your computer as well as the address to be able to view the blog. when you create the blog you will look through a book and there will be numbers for each little saying or paragraph, these are pre recorded text, and you just type a number like 10.22.3456.32.5674.32546 and it brings up the blog, each number is part of what you say, and you can mix and match the sayings in any way you want, when building it, to create a blog, and when you type the message back, it will say all them things in a mesage box, and be like a blog, all the person viewing this will need, is the program and the address. I would like to create one of these for email too. so that people can send emails to each other out of pre written words. and all the words come out in the way they need to be when the right address is entered. I have a decoder here that someone on here built, and I would like someone to rebuild it and make it to where when I type like 1.2.3 it puts a message up with the text of 1 2 and 3 and in any order I type them numbers it puts them in the order it should. examble 1 says ("My name is John") 2 says("I hope you like it.") and 3 says ("welcome to my Web-Blog.") so when someone wants to view it and I give them the address 1.3.2 it says in a message box

My name is John. Welcome to my Web-Blog. I hope you like it.

i would like to create like 100,000 different sayings that relate to stuff that people would say in web-blogs. and name them 1 through 100,000 so you might type 4564.3245.321.4569 and get it to say whatever it says, but whatever is said has to make since, or it's just not a Blog is it? I would like people to be able to put this address in an input box, with as many caracters as they need. Was wondering if someone could change the code below to make it work.

$C1=StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 .!?,","")

$C2=StringSplit("ZYXWVUTSRQPONMLKJIHGFEDCBAzyxwvutsrqponmlkjihgfedcba9876543210,.!?,","")

$Input=InputBox ("EasyCoder","Please enter text to be Encoded\Decoded")

If @Error=1 Then Exit

$Text=StringSplit($Input,"")

Dim $NewText

For $CurrentPos=1 to $Text[0]

$Char=$Text[$CurrentPos]

$CharPos=ArraySearch ($C1,$Char)

If $CharPos="X" then ContinueLoop

$NewChar=$C2[$CharPos]

$NewText=$NewText & $NewChar

Next

ClipPut ($NewText)

MsgBox (0,"EasyCoder",$NewText)

Func ArraySearch ($Array,$What2Find)

For $X=1 to $Array[0]

If $Array[$X]==$What2Find then Return $X

Next

Return "X"

EndFunc

Edited by program builder

Share this post


Link to post
Share on other sites



If anybody knows of any better ways to do this, feel free to post them as well.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0