Here's another... Has any one heard of encrypting email?
Announcement
Collapse
No announcement yet.
encrypting email
Collapse
X
-
-
Re: encrypting email
Probably not too much depending on what technology you are using. There is something called GnUPG for PHP too, and I think it's free. I haven't done this for a long time so I can't remember the whole process but I do remember that it was fairly painless for me to setup the last time I did it...
If you are considering buying PGP but only if it does what you need then try emailing their sales dept. and see what they say... I'm no PGP expert by any means.
Corey Milner
Creative Director, Indigo Rose Software
Comment
-
Re: encrypting email
Try PHP mcrypt http://www.php.net/mcrypt
Corey Milner
Creative Director, Indigo Rose Software
Comment
-
Re: encrypting email
Hey Bruce,
Try looking on the Web for any free encryption programs. You'll probably be able to find some program that will allow you to take one text file and encrypt it. You might even want to look at public key encryption, but all of this really depends on how you were planning on sending this e-mail and so forth.
MSI Factory The Next Generation Intelligent Setup Builder
Comment
-
Re: encrypting email
I guess what I'm looking for is something like changing the letter "a" to "4", "b" to "9" e.t.c. but I believe this requires strings which I'm not up on yet. I would then make a small program and send it to the customer that unscrambles the rubbish.
Comment
-
Re: encrypting email
That's exactly what mcrypt does as well as PGP and GnuPG. At some point you are going to have to decide on a technology and roll up your sleeves if you want to start dabbling in encryption. No choice. As for using AMS to encrypt, sure you could easily design an algorithm but I doubt you'd be able to come up with anything significant, and simply swapping a few letters for digits will give you almost no protection in terms of your encrypted material being unreadable.
Corey Milner
Creative Director, Indigo Rose Software
Comment
-
Re: encrypting email
It's time I wrote a very, very simple tool to do this. I have no spare time right now but as soon as I do I'll see if I can a simple .exe using PHP GTK or Flash or something... Give me a week and I'll have something workable up here for you. Remind me by Wednesday if I appear to have forgotten Bruce...
Corey Milner
Creative Director, Indigo Rose Software
Comment
-
Re: encrypting email
No! Corey It's already done! LOL Tigg and I pushed it around and of course the Tigg man came through!
%ObjectText% = EditFieldObject[EditField1].GetText
IF (%ObjectText% = "")
%Result% = Dialog.MessageBox ("Error", "You have not entered any text!", Ok, Question)
RETURN
END IF
%Ctr% = Evaluate (0)
%Length% = String.GetLength ("%ObjectText%")
%Translated% = ""
// %ABC% = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVW [email protected]#$%^&*()"
%ABC% = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVW XYZ`1234567890-=[]\;',./[email protected]#$%^&*()_+{}|:"<>?"
WHILE (%Ctr% < %Length%)
%SubString% = String.Mid ("%ObjectText%", %Ctr%, 1)
%FoundPos% = String.Find ("%ABC%", "%SubString%", 0)
IF (%FoundPos% = "-1")
%TextLine% = "%SubString%"
GOTO ("notfound")
END IF
IF (((%FoundPos% >= 0) AND (%FoundPos% <=12)) OR ((%FoundPos% >= 26) AND (%FoundPos% <=38)))
%FoundPos% = Evaluate (%FoundPos% + 13)
GOTO ("replace")
END IF
IF (((%FoundPos% >= 13) AND (%FoundPos% <=25)) OR ((%FoundPos% >= 39) AND (%FoundPos% <=51)))
%FoundPos% = Evaluate (%FoundPos% - 13)
GOTO ("replace")
END IF
// IF (((%FoundPos% >= 52) AND (%FoundPos% <=56)) OR ((%FoundPos% >= 62) AND (%FoundPos% <=66)))
// %FoundPos% = Evaluate (%FoundPos% + 5)
IF ((%FoundPos% >= 52) AND (%FoundPos% <=72))
%FoundPos% = Evaluate (%FoundPos% + 21)
GOTO ("replace")
END IF
// IF (((%FoundPos% >= 57) AND (%FoundPos% <=61)) OR ((%FoundPos% >= 67) AND (%FoundPos% <=71)))
// %FoundPos% = Evaluate (%FoundPos% - 5)
IF ((%FoundPos% >= 73) AND (%FoundPos% <=93))
%FoundPos% = Evaluate (%FoundPos% - 21)
GOTO ("replace")
END IF
replace
%TextLine% = String.Mid ("%ABC%", %FoundPos%, 1)
notfound
%Translated% = "%Translated%%TextLine%"
%Ctr% = Evaluate (%Ctr% + 1)
END WHILE
TextBoxObject[TextBox1].SetText ("%Translated%")
TextObject[Text1].SetText ("%Translated%")
Again it's very simple and not hard to *****, but it does what it's supposed to do. It's magic!
Comment
Comment