'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü=� , ß=á ,§=õ , ©=¸, °=ø
#include "vbcompat.bi"
Declare Function GetFAttr Lib "kernel32.dll" Alias "GetFileAttributesA" _
   (ByVal lpFileName As String) As Long
Declare Function Exists(FileName As String) As Long
Declare Function FileExists(FileName As String) As Long
Declare Function ExistsFolder(FileName As String) As Long

Function Exists(FileName As String) As Long
  Const DIRECTORY_BIT=&H04
  Dim Attribut=GetFAttr(FileName)
  Function=IIF(Attribut<0, 0, Bit(Attribut, DIRECTORY_BIT)+2)
  '2=File found, 1=Folder found, 0=Nothing found
End Function

Function FileExists(FileName As String) As Long
  Function=Exists(FileName)=2
End Function

Function FolderExists(FolderName As String) As Long
  Function=Exists(FolderName)=1
End Function
'An dem ProgrammTeil Exist.Bas fand ich nix zum Optimieren: ist schon OPTIMAL :rofl:
Const var1="++++++"
Const var2="++++++"
Const var3="+++++++"
Const con1="put "
Const con2=Chr$(34) 'ist ein "
Const con3=Chr$(64) 'ist ein @
Const con4=Chr$(92) 'ist ein \
Const con5=Chr$(42) 'ist ein *
Const con6="mkdir "
Const con7="cd "
Const con8="public_html/privat/upload"
Dim Pfad(100) As String
Dim Dir2Zip(100) As String
Dim As String Sender, Buffer
'#define r_zahl 841
'#include "devari.bas"
Cls
Print
Print "Dieses Programm stellt eine verschl�sselte Verbindung zur Daten-"
Print "šbertragung her und ist nur bis zum 15.08.2006 verwendbar."
Print
Print "Zur šbertragung groáer Datenmengen > 2 MB ist eine"
Print "schnelle Internetverbindung (DSL) erforderlich."
Print
Print "Um fortzufahren bitte eine Taste dr�cken."
GetKey

Cls
Print !"\nSollen sehr viele einzelne Dateien �bertragen werden,"
Print " -also etwa mehr als 10 Dateien- ? (j/n)"
key1=GetKey
If key1=74 Or key1=106 Then
	If Not FileExists("7z.exe") Then
		Cls
		Print
		Print "Dieses Programm ben”tigt die Datei 7z.exe."
		Print
		Print "psftp.exe UND 7z.exe UND ROSI.exe"
		Print "m�ssen sich im gleichen Verzeichnis befinden."
		Print
		Print "Nach einem Tastendruck wird dieses Programm beendet."
		GetKey
		End
	End If
	Cls
	Print
	Print "Bitte den/die Ordner mit den zu �bertragenden Dateien auf"
	Print "dieses Fenster ziehen und anschlieáend Enter/Return dr�cken."
	Print
	Print "Achtung, es d�rfen derzeit keine Sonderzeichen,"
	Print "Umlaute und á im Dateipfad enthalten sein."
	Print
	Print "Wurden alle zu �bertragenden Dateiordner ausgew„hlt wird zum"
	Print "Start der Daten�bertragung nochmals Enter/Return gedr�ckt."
	Print
	Open "7z.txt" For Append As #1
		For i=0 To 100
	  	Input "=>", Dir2Zip(i)
	    If Dir2Zip(i)="" Then Exit For
	  Next
		For j=0 To i-1
			Print #1, Dir2Zip(j)+con4+con5
		Next
	Close #1
End If
If Not(key1=74 Or key1=106) Then
	If Not FileExists("psftp.exe") Then
		Cls
		Print
		Print "Dieses Programm ben”tigt die Datei psftp.exe."
		Print
		Print "psftp.exe UND 7z.exe UND ROSI.exe"
		Print "m�ssen sich im gleichen Verzeichnis befinden."
		Print
		Print "Nach einem Tastendruck wird dieses Programm beendet."
		GetKey
		End
	End If
	Cls
	Print
	Print "Die Dateie(n) bitte einzeln mit der Maus auf dieses"
	Print "Fenster ziehen und anschlieáend Enter/Return dr�cken."
	Print
	Print "Achtung, es d�rfen derzeit keine Sonderzeichen,"
	Print "Umlaute und á im Dateipfad enthalten sein."
	Print
	Print "Wurden alle zu �bertragenden Dateien ausgew„hlt, wird zum"
	Print "Start der Daten�bertragung nochmals Enter/Return gedr�ckt."
	Print
	Open "sftp.txt" For Append As #1
		For i=0 To 100
	    Input "=>", Pfad(i)
	    If Pfad(i)="" Then Exit For
		Next
		Print #1, ""+con6+""+sender+""
		Print #1, con7 '+sender
		For j=0 To i-1
			Print #1, con1+con2+pfad(j)+con2
		Next
	Close #1
End If
'sender bearbeiten
Sender=""
While Sender=""
  Cls
  Print
  Print "Bitte nur A-Z, a-z, Leerzeichen und _ verwenden."
  Print "Bitte einen Absender eingeben."
  Print
  Line Input "Wer ist der Absender: "; Sender
Wend
'if absender=" "
'
'#include "zeichen.bas"
'absender$=Umlaut$(absender)
'a$ = Umlaut(a$)
If key1=74 Or key1=106 Then
	Cls
	Print
	Print "Die Dateien werden in ein Archiv (zip) gepackt und komprimiert."
	Sleep 2000
	Print
	Shell "@7z a -tzip "+sender+".zip "+con3+"7z.txt"
	Kill "7z.txt"
	Sleep 1500
  Open "sftp.txt" For Append As #1
	  Print #1,"cd public_html/privat/upload"
	  Print #1,con1+con2+sender+".zip"+con2
	  'Print #1,con1+curdir$+sender+con3+".zip"
	  'Print #1,location+sender+".zip"
	  '''location muss noch ermittelt werden !
	  'location ist das verzeichnis, in dem
	  'sich die compilierte exe befindet
  Close #1
End If
'#include "überschreiben verhinden"
Cls
Print
Print "Eine sichere Datenverbindung wird aufgebaut."
Print
Shell "@psftp.exe -b sftp.txt -be -C -pw "+var2+" "+var1+"@"+var3+""
Print "sftp l”schen ?"
GetKey
Kill "sftp.txt"
If FileExists(Sender &".zip") Then
  Kill sender+".zip"
End If
Print
Print "Sofern �ber dieser Zeile"
Print "local:<...> =>"
Print "remote:/home/mritters/public_html/privat/upload/<Dateiname>"
Print "steht war die šbertragung erfolgreich ."
Print
Print "Alle �bertragenen Daten befinden sich unter"
Print "https://dorf.goe.net/~mritters/privat/upload ."
Print
Print "Soll die Internetseite ge”ffnet werden ? (j/n)"
key2=GetKey
If key2=74 Or key2=89 Or key2=106 Or key2=121 Then Shell "explorer https://dorf.goe.net/~mritters/privat/upload/"
Cls
Print
Print "Bei Problemen kann eine e-mail an"
Print "ROSI.exe@stud.uni-goettingen.de"
Print "gesendet werden."
Print
Print
Print "Das Programm kann jetzt mit einem Tastendruck beendet werden."
Sleep
End

Print format(Now,"yyyy/mm/dd hh:mm:ss")
'Oh, ROSI, don't you do that to the boys..