'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü=� , ß=á ,§=õ , ©=¸, °=ø
'Das ist die geänderte Version von ROSI2
#include "vbcompat.bi"
Option Escape
Option Explicit
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="++++++", var2="++++++", var3="+++++++", cPUT="put "
Const QM=Chr$(34) 'ist ein "
Const AT=Chr$(64) 'ist ein @
Const BSL=Chr$(92) 'ist ein \
Const STAR=Chr$(42) 'ist ein *
Const MD="MD "
Const CD="cd "
Const Adr="public_html/privat/upload"
Dim As String Pfad(100), Dir2Zip(100)
Dim As String Sender, Buffer
Dim Key1, i, j, a!, FPtr
'#define r_zahl 841
'#include "devari.bas"
Cls
?"\nDieses Programm stellt eine verschl�sselte Verbindung zur Daten-\nšbertragung her und ist nur bis zum 15.08.2006 verwendbar.\n"
? "Zur šbertragung groáer Datenmengen > 2 MB ist eine\nschnelle Internetverbindung (DSL) erforderlich.\n"
? "Zum Fortfahren bitte eine Taste dr�cken.";
GetKey

Cls
?"\nSollen sehr viele einzelne Dateien �bertragen\nwerden -also etwa mehr als 10 Dateien- ? (j/n)";
Key1=GetKey
If UCase(Chr(Key1))="J" Then
	If Not FileExists("7z.exe") Then
		Cls
		?"\nDieses Programm ben”tigt die Datei 7z.exe.\n\npsftp.exe UND 7z.exe UND ROSI.exe"
		?"m�ssen sich im gleichen Verzeichnis befinden.\n\nNach einem Tastendruck wird dieses Programm beendet.";
		GetKey
		End
	End If
	Cls
	?"\nBitte den/die Ordner mit den zu �bertragenden Dateien auf\ndieses Fenster ziehen und anschlieáend Enter/Return dr�cken.\n"
	? "Achtung, es d�rfen derzeit keine Sonderzeichen,\nUmlaute und á im Dateipfad enthalten sein.\n\n"
	? "Wurden alle zu �bertragenden Dateiordner ausgew„hlt wird zum\nStart der Daten�bertragung nochmals Enter/Return gedr�ckt.\n"
  FPtr=FreeFile
	Open "7z.txt" For Append As #FPtr
		For i=0 To 100
	  	Input "=>", Dir2Zip(i)
	    If Dir2Zip(i)="" Then Exit For
	  Next
		For j=0 To i-1
			? #FPtr, Dir2Zip(j)+BSL+STAR
		Next
	Close #FPtr
Else
	If Not FileExists("psftp.exe") Then
		Cls
		?"\nDieses Programm ben”tigt die Datei psftp.exe.\npsftp.exe UND 7z.exe UND ROSI.exe\n"
		? "m�ssen sich im gleichen Verzeichnis befinden.\nNach einem Tastendruck wird dieses Programm beendet.";
		GetKey
		End
	End If
	Cls
	?"\nDie Dateie(n) bitte einzeln mit der Maus auf dieses\nFenster ziehen und anschlieáend Enter/Return dr�cken.\n"
	?"Achtung, es d�rfen derzeit keine Sonderzeichen,\nUmlaute und á im Dateipfad enthalten sein.\n"
	?"Wurden alle zu �bertragenden Dateien ausgew„hlt, wird zum\nStart der Daten�bertragung nochmals Enter/Return gedr�ckt.\n"
	Open "sftp.txt" For Append As #FPtr
		For i=0 To 100
	    Input "=>", Pfad(i)
	    If Pfad(i)="" Then Exit For
		Next
		? #FPtr, ""+MD+""+Sender+""
		? #FPtr, CD '+Sender
		For j=0 To i-1
			? #FPtr, cPUT+QM+Pfad(j)+QM
		Next
	Close #FPtr
End If
'sender bearbeiten
Sender=""
While Sender=""
  Cls
  ?"\nBitte nur A-Z, a-z, Leerzeichen und _ verwenden.\nBitte einen Absender eingeben.\n"
  Line Input "Wer ist der Absender: "; Sender
Wend
'if absender=" "
'
'#include "zeichen.bas"
'absender$=Umlaut$(absender)
'a$ = Umlaut(a$)
If UCase(Chr(Key1))="J" Then
	Cls
	?"\nDie Dateien werden in ein Archiv (zip) gepackt und komprimiert."
	Sleep 2000
	?
	Shell "@7z a -tzip "+Sender+".zip "+AT+"7z.txt"
	Kill "7z.txt"
	Sleep 1500
  Open "sftp.txt" For Append As #FPtr
	  ? #FPtr, CD &Adr
	  ? #FPtr, cPUT+QM+Sender+".zip"+QM
	  '? #FPtr, cPUT+curdir$+Sender+AT+".zip"
	  '? #FPtr,location+Sender+".zip"
	  '''location muss noch ermittelt werden !
	  'location ist das verzeichnis, in dem
	  'sich die compilierte exe befindet
  Close #FPtr
End If
'#include "überschreiben verhinden"
Cls
?"\nEine sichere Datenverbindung wird aufgebaut.\n"
Shell "@psftp.exe -b sftp.txt -be -C -pw "+var2+" "+var1+AT+var3+""
?"sftp l”schen ?";
GetKey
Kill "sftp.txt"
If FileExists(Sender+".zip") Then
  Kill Sender+".zip"
End If
?"\nSofern �ber dieser Zeile\nlocal:<...> =>\nremote:/home/mritters/public_html/privat/upload/<Dateiname>"
?"steht war die šbertragung erfolgreich .\n\nAlle �bertragenen Daten befinden sich unter"
?"https://dorf.goe.net/~mritters/privat/upload .\n\nSoll die Internetseite ge”ffnet werden ? (j/n)";
Key1=GetKey
If Instr("JY", UCase(Chr(Key1))) Then Shell "explorer https://dorf.goe.net/~mritters/privat/upload/"
Cls
?"\nBei Problemen kann eine e-mail an\nROSI.exe@stud.uni-goettingen.de\ngesendet werden.\n\n"
?"Das Programm kann jetzt mit einem Tastendruck beendet werden.";
Sleep

End

a!=now
? Format(a!,"yyyy/mm/dd hh:mm:ss")
'Oh, ROSI, don't you do that to the boys..