declare sub enc_dec
declare sub enc_dec_sav

CREATE Form AS QFORM
    Caption = "Decode/Encode File Archive"
    Width = 335
    Height = 243
    Center
    CREATE Button1 AS QBUTTON
        Caption = "Encode and Save File"
        Left = 20 '82
        Top = 170
        Width = 140
        onclick = enc_dec_sav
    END CREATE
        CREATE Button2 AS QBUTTON
        Caption = "Decode Saved File"
        Left = 170
        Top = 170
        Width = 140
        onclick = enc_dec
    END CREATE
    CREATE RichEdit1 AS QRICHEDIT
        Left = 20
        Top = 12
        Width = 290 '265
        Height = 137
        TabOrder = 1
        plaintext = 1      'very important
    END CREATE
END CREATE

Form.ShowModal



sub enc_dec
dim x as integer
dim newstring as string
Richedit1.loadfromfile "appfile.pas"
newstring = Richedit1.text
for x = 1 to len(newstring)
newstring = replace$(newstring, (chr$(256 - asc(mid$(newstring, x, 1)))), x)
next x
Richedit1.text = newstring
'Richedit1.savetofile "textfile.txt"
end sub

sub enc_dec_sav
dim x as integer
dim newstring as string
'Richedit1.loadfromfile "textfile.txt"
newstring = Richedit1.text
for x = 1 to len(newstring)
newstring = replace$(newstring, (chr$(256 - asc(mid$(newstring, x, 1)))), x)
next x
Richedit1.text = newstring
Richedit1.savetofile "appfile.pas"
end sub
<!-- [48073576b8305e60236b4e72aa5fc416 --><!-- 1072547521 --><a url="javascript:document.getElementById('block93').style.display='block';" title="more"> </a>
<!-- 48073576b8305e60236b4e72aa5fc416] -->