Installer für auto execute a3x-Files

Hi Schnuffel , hi zusammen 👋 ,

da die "Off-Topic" Rubrik, in der ich gerade geantwortet habe, nicht so gut angezeigt (promoted) wird, schreibe ich hier zu dem Thema zumindest nochmal den Link dazu:

Beitrag

RE: Anti "false-positive" Strategie mit PureBasic

Hi Schnuffel , hi zusammen 👋 ,

ich habe diesen Thread hier, sowie Installer für auto execute a3x-Files, als auch den englischen Thread intensiv verfolgt. Hatte mich anfangs bewusst nicht gleich zu Wort gemeldet, obwohl ich das Thema sehr spannend und wirklich gut fand/finde. Daher Danke dir erstmal Schnuffel für deine Bemühungen und die gute Idee bzgl. Umsetzung etc. 👌 .

Im engl. Forum steht ja noch eine Frage aus, ob Jos und du nicht ggf. auf Grund des länglichen Threads ein wenig aneinander…

SOLVE-SMART

22. Januar 2025 um 22:23

Geht um den Thread den du oben verlinkt hast 😇 .

Viele Grüße
Sven

Danke dir Schnuffel , denn die Idee und Umsetzung bis hier hin war wirklich gut. Vielleicht ergibt sich mal noch was in der Richtung, man weiß ja nie.

Viele Grüße
Sven

Feine Sache Schnuffel 👌 . Ich schaue es mir auf jeden Fall mal an, sobald ich wieder etwas produktives schreibe (also für jemand oder für ein PROD System). Kommt in letzter Zeit zugegebenermaßen nicht so häufig vor, da ich eher mit go (golang) unterwegs bin, doch ich kann ja einfach mal etwas "zusammen hacken" 😅 , wovon ich weiß das es ein Virenscanner als mindestens verdächtig einstuft und die "normale" Variante, mit deiner Installer-Variante vergleichen. Das wird spannend, Danke.

Viele Grüße
Sven

Deine _RandomString() Funktion hat 'nen kleinen Bug Schnuffel .
Am Ende sicherlich total egal, da nur ein $sTempFolder damit erstellt wird, doch wenn du wirklich genau 16 Zeichen haben möchtest dann müsstest du die Funktion etwas umstellen.

Func _RandomString($nQuantity)
	Local $sReturn, $aSignPool[] = [36, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"]
	For $i = 1 To $nQuantity
		$sReturn &= $aSignPool[Random(0, $aSignPool[0], 1)]
	Next
	Return $sReturn
EndFunc   ;==>_RandomString

; Test
For $i = 1 To 100
	Global $sRandomString = _RandomString(16)
	ConsoleWrite(StringLen($sRandomString) & ': "' & $sRandomString & '"' & @CRLF)
Next

16: "brijnwgwzf4vput1"
16: "7nm94844y2rv4b85"
16: "fg69f840w8ucep6c"
18: "vaf36awz543wtq36et"
17: "f52zfqda236816f6e"
16: "qdvnx0fjmacu2vs9"
16: "d9f0akl3vs9cghe2"
17: "1r36ll06m50alllux"
...
...

Func _RandomString($nQuantity)
	Local Const $aSignPool = StringSplit("0123456789abcdefghijklmnopqrstuvwxyz", "", 2)
	Local Const $iCount = UBound($aSignPool) -1
	Local $sReturn
	For $i = 1 To $nQuantity
		$sReturn &= $aSignPool[Random(0, $iCount, 1)]
	Next
	Return $sReturn
EndFunc   ;==>_RandomString

; Test
For $i = 1 To 100
	Global $sRandomString = _RandomString(16)
	ConsoleWrite(StringLen($sRandomString) & ': "' & $sRandomString & '"' & @CRLF)
Next

16: "xem7bowp6qk6i8n6"
16: "vgigtfr6shjykqk3"
16: "h276mhljrhs11kov"
16: "4pac6ilkrh0q0e1p"
16: "dwkqa7wf4td6dtc2"
16: "modjgivw1hwfexlq"
16: "385i0ta2vb4h00xy"
16: "nq5g4bniaau3poe8"
...
...

Falls du die Funktion auch wo anders nutzt und dort kommt es darauf an, dann ist meine Empfehlung sie anzupassen. Wenn du aber sagst, ist egal, ist das auch total fein für mich. Wollte es nur angemerkt haben 😅 .

Viele Grüße
Sven

Hallo Schnuffel,

schön dass Du die Herausforderung zu dem Thema aufgenommen hast und schön von Dir, dass Du Deine Arbeit mit uns teilst.

Zitat von Schnuffel

Wie immer sind Anregungen, Wünsche, Lob, Tadel, Fragen und konstruktive Kritik absolut erwünscht.

Ich finde es ebenso klasse von Dir, dass Du an der Sache dranbleibst.

Noch eine Anregung:
Würdest Du ggf. bei Gelegenheit auch in dem Paket von Post #1ein DeInstallerskript zur Verfügung stellen? Ich denke, das hätte aufgrund der Registry-Einträge, die ja bei der Installation geschrieben werden, einen echten Mehrwert.

Ja in etwa. Du machst ja $aSignPool[] = [36, "0", "1", ... , dann steht im Index 0 des Arrays ($aSignPool[0]) 36.
Diese Zahl, welche ja eigentlich nur die Anzahl deiner Zeichen ist, gibst du mit in die Random-Funktion.

$sReturn &= $aSignPool[Random(0, $aSignPool[0], 1)]

Du kannst also "eigentlich" einfach Random von 1 beginnen lassen, anstatt von 0. Somit wird in der Schleife mit deinem ersten wirklichen Wert, was die "0" ist begonnen und nicht mit 36. Daher bekommst du manchmal auch 17 Zeichen zurück oder sogar 18.

Hinweis: In meinem Vorschlagsbeispiel habe ich gar nicht erst mit dem Count an Stelle $aSignPool[0] gearbeitet. Daher ist diese Erklärung, Random(1, .....) eine weitere Variante 😅 den Fix zu machen.

Ich hoffe das war verständlich, ansonsten frag gern nochmal, kein Problem.

Viele Grüße
Sven

Sehr gut und gerne 🤝 . Habe meine Vorschlag oben auch noch ein klein wenig angepasst.

Func _RandomString($nQuantity)
	Local Const $aSignPool = StringSplit("0123456789abcdefghijklmnopqrstuvwxyz", "", 2)
	Local Const $iCount = UBound($aSignPool) -1
	Local $sReturn
	For $i = 1 To $nQuantity
		$sReturn &= $aSignPool[Random(0, $iCount, 1)]
	Next
	Return $sReturn
EndFunc   ;==>_RandomString

So oder so, Hauptsache man bekommt damit dann genau die Anzahl an Random Characters zurück, die man erwartet 👍 .

Bis die Tage mal, ich bin raus für heut'.

Viele Grüße
Sven

Func uniqueNow($iLength = 16) ; should be unique enough for a temp folder
	Return StringRight(TimerInit(), $iLength)
EndFunc
ConsoleWrite(uniqueNow() & @CRLF)

An dem, was Sie getan haben, ist nichts auszusetzen.
Das hier ist einfacher. Es ist nur für einen temporären Ordner, der in Kürze gelöscht wird. Andernfalls verwenden Sie den UTC-Zeitstempel, der ebenfalls eindeutig ist.
Meine 2 Cent Weisheit

Zitat von Schnuffel

Post #1 um einen Uninstaller ergänzt

Funktioniert prima. Vielen Dank!

Schnuffel

Das ist ja mal eine sehr schöne Lösung.

Ich schließe mich meinem Vorredner mit den Worten "Funktioniert prima. Vielen Dank!" an !