Encrypt CSV file?

[Keith Hubert]

Hi All,

I have exported data to a CSV file which contains very personal information.

How do I encrypt this file which can then only be decrypted with the correct key on another machine that is not running Alpha?

[Stan Mathews]

Re: Encrypt CSV file?

Encrypt_string()

tst = <<%txt%
#12345,"new line",some unquoted text,.T.,45.77,{03/14/2012},more unquoted text,"more quoted text"
#987654,"second line",some (2) unquoted text,.F.,77.45,{04/13/2010},more (2)unquoted text,"more (2) quoted text"
#%txt%

? tst
= 12345,"new line",some unquoted text,.T.,45.77,{03/14/2012},more unquoted text,"more quoted text"
987654,"second line",some (2) unquoted text,.F.,77.45,{04/13/2010},more (2)unquoted text,"more (2) quoted text"


? encrypt_string(tst,"Keith")
= =�,srg%9"PC#,4-@[{.W$f~u>+`&^'G<jlw5|:K&+gN:jt3 01,j\cYI6JT=avI$pn_<m#z/ =Jg6tczPMR<I>P:[8vtRZy:{)d�VWK1sZ1�a8#380n0^k(;G>8)tPw#k4%4d/x&D,B6'Vmkh8m'&%/x2N1#!QiO9\Y)|GK5 2}760a3mo\-`%[email protected];D9d-<bboYrF(G,Yj�

encr_tst = encrypt_string(tst,"Keith")

? encr_tst
= =�,srg%9"PC#,4-@[{.W$f~u>+`&^'G<jlw5|:K&+gN:jt3 01,j\cYI6JT=avI$pn_<m#z/ =Jg6tczPMR<I>P:[8vtRZy:{)d�VWK1sZ1�a8#380n0^k(;G>8)tPw#k4%4d/x&D,B6'Vmkh8m'&%/x2N1#!QiO9\Y)|GK5 2}760a3mo\-`%[email protected];D9d-<bboYrF(G,Yj�

? decrypt_string(encr_tst,"Stan")
= _#yexL4d2uwo7]u:\1n8`+t|:o_!}2|9Pgwb#aN]_xvAAUC{4ec31$H,d9M}T]o?[:.Ps%-"\./5>Hwm!|YmicT-:y+E'C-T
q#qLg \lap_onns7,(L:,b-I-|)TI8|ou4ua9QcoXYXv|x#md!)u#K;e`Y>@4.u^*eLLXv!0dc+Z2?9?L@o_"pY?Bu~?K}sFq6cPsdqA;2fL]q%

? decrypt_string(encr_tst)
= ~G12$JjVA{}f|TYm&vz1}9f5Gz*`Ri~H/HB$d]JF"dQ(U4?0pF"4vw=8C (gR``3D[9'53YSEgLg z `q"~n9H|3F,QuL*J��xPd@t9+D*L+<Gj]+qY@\&^+YW=[6},$3`Y'g?@|"fzi#`Dmv]=@$v#/-0S+xY&0LUb}i0x:MAS;r`#JORAR92`|}1AOab!GM`EyFj4d4[Oj��

? decrypt_string(encr_tst,"Keith")
= 12345,"new line",some unquoted text,.T.,45.77,{03/14/2012},more unquoted text,"more quoted text"
987654,"second line",some (2) unquoted text,.F.,77.45,{04/13/2010},more (2)unquoted text,"more (2) quoted text"

[Stan Mathews]

Re: Encrypt CSV file?

For the file saving, sending, etc.

tst = <<%txt%
#12345,"new line",some unquoted text,.T.,45.77,{03/14/2012},more unquoted text,"more quoted text"
#987654,"second line",some (2) unquoted text,.F.,77.45,{04/13/2010},more (2)unquoted text,"more (2) quoted text"
#%txt%
encr_str = encrypt_string(tst,"Keith")

save_to_file(encr_str,"C:\keith_encrypted.txt")

read_file = get_from_file("C:\keith_encrypted.txt")
? read_file
= =�,srg%9"PC#,4-@[{.W$f~u>+`&^'G<jlw5|:K&+gN:jt3 01,j\cYI6JT=avI$pn_<m#z/ =Jg6tczPMR<I>P:[8vtRZy:{)d�VWK1sZ1�a8#380n0^k(;G>8)tPw#k4%4d/x&D,B6'Vmkh8m'&%/x2N1#!QiO9\Y)|GK5 2}760a3mo\-`%[email protected];D9d-<bboYrF(G,Yj�

unencr_str = decrypt_string(read_file,"Keith")
? unencr_str
= 12345,"new line",some unquoted text,.T.,45.77,{03/14/2012},more unquoted text,"more quoted text"
987654,"second line",some (2) unquoted text,.F.,77.45,{04/13/2010},more (2)unquoted text,"more (2) quoted text"


unencr_file = save_to_file(unencr_str,"C:\keith_unencrypted.txt")

[Tom Henkel]

Re: Encrypt CSV file?

Stan,
I think the key here is that the other machine doesn't have alpha. My take on this is that there needs to be some sort of 3rd party encryption/decryption routine used.

Tom

[Mike Wilson]

Re: Encrypt CSV file?

Keith,
What tool is the recipient going to be using to decrypt the string?
How much text is in the encrypted string?

[Mike Wilson]

Re: Encrypt CSV file?

The following uses a director key string that is the key to producing and deciphering the encrypted message.
This code produces a number string from the message with an added 4 at the front. After removing the 4 from the begining, each two characters in the encryped string represents the position number in the director key string. The recipient can decrypt the string if they have the director key string. It's computer generated on your end, but without alpha on the other end, decryting is manual.

'% = line feed
'^ = space
'# = comma
'! = :

dim dirstr as C="%^#!Dlf52OZ9eCiL0rvXu8UWwy6JKQGAHmo4zTIFdphnVgtxs7jNE3q1SbMYkcaRBP"

dim vmess as C
dim vencr_str as C
vmess=<<%m%
Mike Wilson
1234 Pine Circle
Battle Creek, MI 12345
SSN: 9908978897
BANK: 180908889767
AMOUNT: 1234534677
%m%

dim vreplace as C
vreplace=chrtran(vmess,crlf(),"%")
vreplace=chrtran(vreplace," ","^")
vreplace=chrtran(vreplace,",","#")
vreplace=chrtran(vreplace,":","!")
msgbox(vreplace)

dim vml as n
vml=len(vreplace)

dim vlw as C
dim vnw as N
dim vcw as C

for i = 1 to vml
	vlw=substr(vmess,i,1)
	vnw=at(vlw,dirstr)
	vcw=alltrim(str(vnw))
	vcw=padl(vcw,2,"0")
	vencr_str=vencr_str+vcw
	vcw=""
next

' add a 4 at the begining to frame shift
vencr_str="4"+vencr_str

msgbox("This is the encrypted string",vencr_str)

The dirstr I generated with a function I have that shuffles all the letters, upper and lower case and all numbers through 20,000 shuffle iterations into a random sequence.

[Stan Mathews]

Re: Encrypt CSV file?

Correct of course, I didn't read the post closely enough. Silly me, I assumed it was an Alpha question.

[Ted Giles]

Re: Encrypt CSV file?

Keith, did you decrypt the Zipped document I sent in a PM?
Using jZip (thanks Stan) it is easily possible to zip the CSV and send it to your 3rd party. There are 2 levels of encryption offered. Suggest you go for the 256bit AES encryption.
It is possible (according to the jZip documentation) to set the encryption at the command level so you should be able to use Alpha to create, zip, encrypt and send the data.
The decryption key can be txtd or mailed separately, or you could have an agreed TestKey.

[Keith Hubert]

Re: Encrypt CSV file?

Hi Ted,

Thanks for your sample and suggestion. Unfortunately the service company needs more automation in handling the incoming files that need to be processed.

[G Gabriel]

Re: Encrypt CSV file?

The simplest thing that comes to mind, is to use Windows encryption.
In Windows 7, to encrypt:
1. Right-click the folder or file you want to encrypt, and then click Properties.
2. Click the General tab, and then click Advanced.
3 Select the Encrypt contents to secure data check box, and then click OK.

To decrypt:
1. Right-click the folder or file you want to decrypt, and then click Properties.
2. Click the General tab, and then click Advanced.
3. Clear the Encrypt contents to secure data check box, and then click OK.
Or
You could send it as an email attachment (Make sure your email service provider will encrypt it).

[Keith Hubert]

Re: Encrypt CSV file?

Hi Gabe,

Thanks for your imput. This will not work as the user must NOT have access to the file in un-encrypted format.

[G Gabriel]

Re: Encrypt CSV file?

You lost me!
The file will be encrypted.
Don't you want the user to be able to decrypt it?
If not? What is the point?
Let the user look at it and dazzle?

[G Gabriel]

Re: Encrypt CSV file?

Re-reading your original post (which in the spirit of encryption, is an encrypted question!) I surmise that:
You want to save a file on machine A
You want the file to be saved as an encrypted file (or so you conclude)
You want the user to be able to decrypt it (on machine A, or perhaps other machines) with the "correct key"

Let me decrypt "correct key":
password.
You need to password-protect the file, encrypted or not.

[Jenny Earnshaw]

Re: Encrypt CSV file?

Keith, the person who designed Storing's web site had an encryption program from a company called Persists Software Inc www.persits.com called AspEncrypt which they used to encrypt the CSV file they exported from the web site. The users had the decrypt software on their PC which they used to decrypt the file.

I am afraid I don't know how the encryption side worked but as I just had some code to run the decrypt part. The person who looks after their web site might know.

[Keith Hubert]

Re: Encrypt CSV file?

Hi Gabe,

You want the user to be able to decrypt it (on machine A, or perhaps other machines) with the "correct key"

Unfortunately you have made the assumption that the user is the same person, that is not the case. Mike did pick up on that when he asked "What tool is the recipient going to be using to decrypt the string?"

The recipient is going to be using PGP. How does that work with Alpha encrypted CSV file?