Function smtpSendMail(server$, von_adresse$, password$, an_adresse$, subject$, mailtext$)
  com2 = OpenTCPStream(server$,25)
  ReadLine(com2)
  WriteLine com2,"AUTH LOGIN"
  ReadLine(com2)
  WriteLine com2,b64enc(von_adresse)
  ReadLine(com2)
  WriteLine com2,b64enc(password)
  ReadLine(com2)
  WriteLine com2,"HELO EGAL"
  ReadLine(com2)
  WriteLine com2,"MAIL FROM: " + von_adresse$
  ReadLine(com2)
  WriteLine com2,"RCPT TO: "+an_adresse$
  ReadLine(com2)
  WriteLine com2,"DATA"
  ReadLine(com2)
  WriteLine com2, "Date: " + CurrentDate$ ()
  WriteLine com2, "From: " + von_name$ + " <" + von_adresse$ + ">"
  WriteLine com2, "To: " + an_name$ + " <" + an_adresse$ + ">"
  WriteLine com2, "Subject: " + subject$
  WriteLine com2, "X-Mailer: EGAL"
  i = 0
    Repeat
      WriteLine com2, stringausstring$(mailtext$, i, 0)
       i = i + 1
    Until Len(stringausstring$(mailtext$, i, 0)) = 1 And stringausstring$(mailtext$, i, 0) = "0"
  WriteLine com2, "."
  ReadLine(com2)
  WriteLine com2, "QUIT"
  ReadLine(com2)
  CloseTCPStream(com2)
End Function

Function stringausstring$(s$, stelle, trenncode)
   anzahl = 1 ; Anzahl der Textstellen
   letzteskomma = 1 ; Position des letzten Kommas
   For i = 1 To Len(s$)
      If Asc(Mid(s$, i, 1)) = trenncode Or i = Len(s$) Then ; Wenn ein Trenncode erreicht ist
         If anzahl = stelle Then ; Wenn diese Stelle die angegebene ist...
            s2$ = Mid(s$, letzteskomma, i-letzteskomma) ; Text extrahieren
            If i = Len(s$) Then s2$ = Mid(s$, letzteskomma, i-(letzteskomma-1)) ; Wenn der Text der letzte im String ist, etwas anders extrahieren
           If Len(Mid(s$,letzteskomma,i-letzteskomma)) = 1 Then s2$ = Chr$(0)
         EndIf
         letzteskomma = i+1 ; Weitergehen im String solange der Text noch nicht erreicht ist
         anzahl = anzahl + 1
      EndIf
   Next
   If stelle > (anzahl-1) Then Return "0"
   Return s2$
End Function

Function b64enc$(a$)
   b64$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
   m$=""
   f$=""
   largo=Len(a$)
;Encode a$ into one long string of bits
   cx$=""
   For encode=1 To largo
      x$=Mid$(a$,encode,1)  ;get one char at a time
      Tx=Asc(x$)            ;Tx = ASCII code
      b$=Bin$(Tx)           ;convert Tx into string of 32 bits
      b$=Right$(b$,8)       ;get the right most 8 bits out of the 32 bits
      cx$=cx$+b$            ;add string of 8 bits to cx$
   Next
   ;largo = number of bits stored in cx$
   largo=Len(cx$)
   For encode=1 To largo Step 6
      x$=Mid$(cx$,encode,6)   
      bbb=Len(x$)
      bbbx=6-bbb       ;check for 6 bits
         ;If not full 6 bits at end of bit string, then add "=" to end of encoded string
         If bbbx>0 Then
            f$="="
         EndIf
      x$=x$ + Left$("00000000",bbbx)         ;pad with zeroes to make 6 bits
      res=0
      For y=0 To 5
         by  = Asc(Mid$(x$, 6-y, 1)) - 48   ;get bits from right to left (least significant to most)
         res = res + ( 2^y * by)            ;raise to power of 2 and add to res (result)
      Next
      m$=m$+Mid$(b64$,res+1,1)+f$
   Next
   Return m$
End Function

Function smtpSendMail(server$, von_adresse$, password$, an_adresse$, subject$, mailtext$)
  com2 = OpenTCPStream(server$,25)
  ReadLine(com2)
  WriteLine com2,"AUTH LOGIN"
  ReadLine(com2)
  WriteLine com2,b64enc(von_adresse)
  ReadLine(com2)
  WriteLine com2,b64enc(password)
  ReadLine(com2)
  WriteLine com2,"HELO Chess-Mail"
  ReadLine(com2)
  WriteLine com2,"MAIL FROM: " + von_adresse$
  ReadLine(com2)
  WriteLine com2,"RCPT TO: "+an_adresse$
  ReadLine(com2)
  WriteLine com2,"DATA"
  ReadLine(com2)
  WriteLine com2, "Date: " + CurrentDate$ ()
  WriteLine com2, "From: " + von_name$ + " <" + von_adresse$ + ">"
  WriteLine com2, "To: " + an_name$ + " <" + an_adresse$ + ">"
  WriteLine com2, "Subject: " + subject$
  WriteLine com2, "X-Mailer: Chess-Mail"
  WriteLine com2, ""
  WriteLine com2, mailtext$
  WriteLine com2, "."
  ReadLine(com2)
  WriteLine com2, "QUIT"
  ReadLine(com2)
  CloseTCPStream(com2)
End Function


Function b64enc$(a$)
   b64$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
   m$=""
   f$=""
   largo=Len(a$)
;Encode a$ into one long string of bits
   cx$=""
   For encode=1 To largo
      x$=Mid$(a$,encode,1)  ;get one char at a time
      Tx=Asc(x$)            ;Tx = ASCII code
      b$=Bin$(Tx)           ;convert Tx into string of 32 bits
      b$=Right$(b$,8)       ;get the right most 8 bits out of the 32 bits
      cx$=cx$+b$            ;add string of 8 bits to cx$
   Next
   ;largo = number of bits stored in cx$
   largo=Len(cx$)
   For encode=1 To largo Step 6
      x$=Mid$(cx$,encode,6)   
      bbb=Len(x$)
      bbbx=6-bbb       ;check for 6 bits
         ;If not full 6 bits at end of bit string, then add "=" to end of encoded string
         If bbbx>0 Then
            f$="="
         EndIf
      x$=x$ + Left$("00000000",bbbx)         ;pad with zeroes to make 6 bits
      res=0
      For y=0 To 5
         by  = Asc(Mid$(x$, 6-y, 1)) - 48   ;get bits from right to left (least significant to most)
         res = res + ( 2^y * by)            ;raise to power of 2 and add to res (result)
      Next
      m$=m$+Mid$(b64$,res+1,1)+f$
   Next
   Return m$
End Function

Function smtpSendMail(server$, user$, password$, von_adresse$, an_adresse$, subject$, mailtext$)
  com2 = OpenTCPStream(server$,25)
  ReadLine(com2)
  WriteLine com2,"AUTH LOGIN"
  ReadLine(com2)
  WriteLine com2,b64enc(user$)

com2 = OpenTCPStream(server$,25)