diff options
author | Erich Eckner <git@eckner.net> | 2019-04-05 15:31:38 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2019-04-05 15:32:00 +0200 |
commit | bb705efb53ddfc34a9b1bb24667f1c4d17a52adf (patch) | |
tree | f6f0dfdecf16b5ef3d499f31a78814ee1b526e7b /unit1.pas | |
parent | b02c9f0a2985788b42725007fa48b7ec669c1730 (diff) | |
download | Emails-bb705efb53ddfc34a9b1bb24667f1c4d17a52adf.tar.xz |
store password encrypted
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 16 |
1 files changed, 12 insertions, 4 deletions
@@ -36,7 +36,8 @@ type lb: tMouseButton; public { public declarations } - pc: tPopImapClient; + pc: tPopImapClient; + encryptionUser: string; procedure neueNachrichten(sender: tObject); end; @@ -45,7 +46,7 @@ var implementation -uses myStringListUnit, lowLevelUnit, process; +uses myStringListUnit, lowLevelUnit, process, deencrypt; {$R *.lfm} @@ -83,6 +84,12 @@ begin else if s<>'' then raise exception.create(''''+s+''' ist kein gültiger Wert für ''Ton geben'' (ja|nein)!'); + s:=sl.grepFirst('^Encryption-User\s*='); + if erstesArgument(s,'=')<>'' then + encryptionUser:=s + else + raise exception.create('Kein Encryption-User in '''+extractfilepath(application.exename)+'optionen.konf'' angegeben!'); + pc:=tPopImapClient.create; s:=sl.grepFirst('^Timeout\s*='); if erstesArgument(s,'=')<>'' then @@ -103,7 +110,7 @@ begin raise exception.create('Kein User in '''+extractfilepath(application.exename)+'optionen.konf'' angegeben!'); s:=sl.grepFirst('^Pass\s*='); if erstesArgument(s,'=')<>'' then - pc.pass:=s + pc.pass:=decrypt(s) else raise exception.create('Kein Pass in '''+extractfilepath(application.exename)+'optionen.konf'' angegeben!'); found:=false; @@ -179,12 +186,13 @@ begin sl.addWithLineBreaks('gültiger Adressat = '+umbrechen(copy(pc.gueltigerAdressat,2,length(pc.gueltigerAdressat)-2),'|',true,'gültiger Adressat = ')); + sl.add('Encryption-User = ' + encryptionUser); sl.add('Timeout = ' + floatToStr(pc.timeOut)); if pc.sshUser<>'' then sl.add('ssh-User = ' + pc.sshUser); sl.add('Host = ' + pc.host); sl.add('User = ' + pc.user); - sl.add('Pass = ' + pc.pass); + sl.add('Pass = ' + encrypt(pc.pass, encryptionUser)); sl.add('Port = ' + intToStr(pc.port)); case pc.mailProtocol of mpPop: |