In welchen Ländern ist Ransomeware As A Service legal?

1 Antwort

25.03.2024, 20:07

Offiziel ist es glaube nirgendwo egal Ransomeware zu verbreiten. Ausnahme ist da Russland. Offiziel ist es dort zwar auch illegal, aber so lange man nichts gegen Russland selber macht wird nichts dagegen unternommen.

Hinweis: Ich bin kein Experte in Rechtstechnischen Themen. Dies ist nur zusammenfassende erkenntnis aus den simplicissimus Videos über solche Themen.

Inkognito-Nutzer

25.03.2024, 20:12

kannst du hacken?

Suiram1

25.03.2024, 20:18

@Inkognito-Fragesteller

Gibt viele Hacking Themen. Mit Reverse Engeneering von Programmen kenn ich mich etwas aus und mir sind auch ein par Hacking Techniken bei Websites bekannt aber ansonsten bin ich lediglich an solchen Themen interessiert.

Inkognito-Nutzer

27.03.2024, 17:45

@Suiram1

genau das würde jetzt ein Profi Hacker sagen...

Suiram1

27.03.2024, 17:53

@Inkognito-Fragesteller

Ist klar. Wenn man sich mit der Entwicklung von Websites beschäftigt kommt man halt nicht um das Thema herum welche Hacking angriffe es da gibt.

Hallo Zusammen

Ich bin ganz neu im VBA und bin etwas am Herumprobieren. Einen Teil habe ich geschafft, aber an einem Punkt hänge ich.

Ich will, dass ein Makro läuft, welches die Datei automatisch unter dem Namen "Kundennummer_Servicedatum" abspeichert. Die Kundennummer und das Servicedatum sind beide im Dokument unter separaten Zellen hinterlegt, die Formel sieht jetzt so aus:

Sub Speichern_unter()

Dim SaveName As String

Dim Datum As Date

SaveName = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("BM17")

ActiveWorkbook.SaveAs Filename:="D:\ABC\Service\" & SaveName & "_" & Datum & ".xls"

End Sub

Soweit funktioniert alles, das Dokument heisst z.b. "149_31.10.23"

Das Datum ist als dd.mm.yy in der Zelle, zum Abspeichern brauche ich aber folgendes Format: yymmdd. Ziel ist also der Name "149_231031"

Kann mit jemand helfen, wie ich das Datum umgedreht bekomme? Danke im Voraus :)

...zur Frage

YouTube Playlisten Downloader Programm?

Hallo zusammen,

ich bin Programmierer, habe ein Programm geschrieben, was YouTube Playlisten als MP3 Audios herunterlädt.

Ich wollte fragen, ob das so legal ist, und ob ich das Programm verkaufen darf.

Danke

...zur Frage

Wie kann ich mit einer For-Schleife Punkt vor Strich rechnen?

Hallo,

ich habe mir einen Taschenrechner (mit For-Schleife) erstellt.

Er kann alles, außer Punkt vor Strich. Die Funktion ist etwas schwieriger, da ich kein kein DataTable.Compute benutzen darf, sonst wäre es ja zu einfach.

Es muss durch den String selber erfolgen, also etwas komplizierter.

Hier der Code (kann leider nicht den ganzen Code eingeben, daher hier der = Code, der dafür ja auch am wichtigsten ist; ich füge den Rest einzeln hinzu!):

Dim input As String = tb.Text
Dim numbers() As String = input.Split({"+", "-", "*", "/"}, StringSplitOptions.RemoveEmptyEntries)
Dim operators() As String = Regex.Matches(input, "[-+*/]").OfType(Of Match).Select(Function(m) m.Value).ToArray()

For Each op As String In operators
  If op = "*" Then
    Console.WriteLine("Multiplication operator found!")
  ElseIf op = "/" Then
    Console.WriteLine("Division operator found!")
  ElseIf op = "+" Then
    Console.WriteLine("Addition operator found!")
  ElseIf op = "-" Then
    Console.WriteLine("Subtraction operator found!")
  End If
Next

If numbers.Length < 2 OrElse operators.Length < 1 Then
  Return ' Exit the method if we can't perform the calculation
End If

Dim result As Double = Double.Parse(numbers(0))

For i As Integer = 0 To operators.Length - 1
  Dim op As String = operators(i)
  Dim number As Double = Double.Parse(numbers(i + 1))

  Select Case op
    Case "+"
      result += number
      (das Gleiche mit -*/)
  End Select
Next

tb.Text = result.ToString()
Dim containsInvalidCharacters As Boolean = False

For i As Integer = tb.Text.Length - 1 To 0 Step -1
  If Not IsNumeric(tb.Text.Substring(i, 1)) And Not "+-*/".Contains(tb.Text.Substring(i, 1)) Then
    containsInvalidCharacters = True
    Exit For
  End If
Next

' Beibehaltene For-Schleife
For index As Integer = 1 To 2
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 12

For index As Integer = 3 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 321

For index As Integer = 4 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 4321

For index As Integer = 5 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 54321

For index As Integer = 6 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 654321

For index As Integer = 7 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 7654321

For index As Integer = 8 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 87654321

For index As Integer = 9 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 987654321

For index As Integer = 0 To 0
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 0

End Sub

Danke schon einmal!

...zur Frage

Sollte ich eine Fullstack Stelle ablehnen, wenn ich nicht mit Cloud Services wie Azure und AWS arbeiten werde?

Ich hab im Moment 3 Angebote von Firmen. Beim ersten Angebot kriege ich ca. 54k Einstieg als junior. Ich darf im Java Stack arbeiten, jedoch gab es kein Wort darüber, ob ich mit großen Cloud-Services arbeiten darf. Javascript oder TypeScript wohl auch nicht, da die primär mit Java arbeiten und Spring.

Ich hatte ein wenig Azure im Studium und habe Kollegen, die Arbeiten im Fullstack und fast jeder arbeitet in auch mit AWS oder Azure. Meine Frage ist: Sollte ich dieses Angebot ablehnen?

Bei den anderen beiden habe ich erst Ende der Woche mein Telefongespräch.

Ich hatte auch überlegt, mich auf weitere Stellen zu bewerben, wo Azure oder AWS explizit angegeben sind.

Was ist hier der schlauste Weg?

...zur Frage

Was genau ist "Steam Unlocked" und ist die Nutzung des Service legal?

...zur Frage

SQLite Dezimalzahlen auf zwei Nachkommstellen runden?

Ich versuche gerade beim Abrufen in SQLite die Spaltenwerte auf jeweils zwei Nachkommastellen zu runden.

SELECT H AS Hauptkonto,
       HW AS Betrag in Heimatwährung,
       HWST AS Steuer in Heimatwährung,
       JAHR AS Jahr,
       SUM(HW-HWST) AS Summe

FROM Kundentabelle
GROUP BY H, Jahr
ORDER BY Jahr ASC;

Hierbei muss ich jeweils HW, HWST und SUM(HW-HWST) auf die zwei Nachkommastellen gerundet bekommen.

Ich habe bereits probiert die Befehle

ROUND(HW,2)
ROUND(HWST,2)
ROUND(SUM(HWST-HWST),2)

an verschiedenen Stellen einzusetzen, allerdings lässt sich der code dann nicht ausführen. Kennt sich jemand aus und könnte mir am besten anhand eines passenden codes weiterhelfen? Bin für jede Antwort sehr dankbar :)

...zur Frage

in welchen Ländern ist alternativ Wohnen legal möglich?

Wohnen im Bauwagen, Gartenhütchen etc. ist hier in Deutschland ja nicht so gern gesehen und fast nicht legal möglich. In welchen Ländern in Europa ist es was das angeht lockerer ?

...zur Frage

Länder ohne Impressumspflicht

In welchen Ländern gibt es keine Impressumpspflicht, dh. in denen man ganz legal kein Impressum anlegen muss?

...zur Frage

Python background service / alle x sekunden was ausführen?

Das Szenario: Ich hab ne API laufen die per post request einen Service starten und stoppen soll. Der Service soll alle paar Sekunden etwas tun.

Code:

from fastapi import FastAPI
from testService import Service
import time

app = FastAPI()

@app.get("/")
def index():
    #hier später Service start / stop callen (und post draus machen)
    return { "message": "hello world"}

service = Service()
service.start()
time.sleep(20)
service.stop()

Und der service:

import sched, time

class Service:
    scheduler = sched.scheduler(time.time, time.sleep)
    running = False
    interval = 5

    def start(self):
        self.running = True
        self.task(None)
        self.scheduler.run()

    def stop(self):
        self.running = False
        if(self.event):
            self.scheduler.cancel(self.event)

    def task(self, nothing):
        if(self.running):
            self.event = self.scheduler.enter(self.interval, 1, self.task, (self,))
            print("test")
            #hier dann der Code, der alle paar Sekunden ausgeführt werden soll

Das Problem: self.scheduler.run() blockt den Main Thread, und die Lösung ist wohl ne Schleife darum, aber das sieht irgendwie nach dem falschen Ansatz aus und ich weiß nicht ob das sich nicht vlt mit den API Endpoints beißt...

Wie mache ich das richtig?

...zur Frage

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

...zur Frage

Sind das IT Hilfskraft Aufgaben?

Deliver qualified User Support and Incident Management in Network and Telephony aligned with ITIL standards in the operation part, as well as analyzing and processing user demands.

2. Switchport management of the 3-Tier Enterprise and DataCenter infrastructure in key areas like

office, logistics and production.

3. Monitoring and upgrade of the CISCO network infrastructure.

4. Administrative network security tasks like devices network access (NAC) and ACLs.

4. Administrative tasks of the Alcatel telecommunication infrastructure.

5. Cooperation with internal and external partners/services.

6. Responsibility for implementation of network related project (Migrations, Lifecycle and Access Control)

...zur Frage

Excel: Wie gestalte ich dieses Makro schneller und effektiver und sorge dafür, dass es bei Neustart nur neue Werte erkennt?

Wie kann ich dieses Makro schneller und effektiver machen und wie bekomme ich es hin, dass es beim Neustart nicht schon wieder die Werte erkennt, die schon einmal dran waren? Sodass die 50 nach dem ersten Mal Abspielen des Sounds ignoriert wird.

Code:

Sub PlaySound()
  Dim ws As Worksheet
  Dim rng As Range
  Dim cell As Range
  Dim goals As Long
  Dim soundFile As String
  Dim thresholds As Variant
  Dim i As Integer
  Set ws = ThisWorkbook.Worksheets("Spielplan")
  Set rng = ws.Range("O1:O" & ws.Cells(ws.Rows.Count, "O").End(xlUp).row)
  soundFile = "Sound_pfad.mp3"
  'Array of threshold values
  thresholds = Array(50, 100, 150, 200, 250, 300, 350, 400, 450, 500,550,600,650,700,750,800,850,900,950,1000)
  Do While True 'Endlosschleife hinzugefügt
    For Each cell In rng
      If IsNumeric(cell.Value) Then
        goals = goals + cell.Value
        'Check if goals is equal to any of the threshold values
        For i = LBound(thresholds) To UBound(thresholds)
          If goals = thresholds(i) Then
            Application.ScreenUpdating = False
            Application.EnableEvents = False
            ActiveSheet.OLEObjects.Add(Filename:=soundFile, Link:=False, DisplayAsIcon:=False).Select
            Selection.Verb Verb:=xlPrimary
            Selection.Delete
            Application.ScreenUpdating = True
            Application.EnableEvents = True
          End If
        Next i
      End If
    Next cell
    'Verzögerung hinzugefügt, um die CPU-Auslastung zu reduzieren
    Application.Wait (Now + TimeValue("0:05:00"))
  Loop
End Sub

...zur Frage

VBA: Split-Funktion mit einem Trennzeichen?

Hallo zusammen,

ich stehe vor einem Problem, woran ich schon seit Tagen arbeite und keine Lösung finde.

Meine Split-Funktion klappt soweit, die Daten werden eingefügt. Allerdings in der ersten der ersten Zeile von (D). Ich benötige die Daten aber ab Zeile (D20) und das bekomme ich nicht hin.

Hat bitte jemand einen Lösungsvorschlag, da ich nicht so fit mit VBA bin?

Dim MeinArray() As String
Dim MeineZeichenkette As String
Dim I As Variant
Dim N As Integer
Dim WB As Worksheet
Set WB = ThisWorkbook.Sheets("Abrechnung")

Dim WBlerf As Worksheet
Set WBlerf = ThisWorkbook.Sheets("Tabelle1")
Ziel = WBlerf.Range("D20")

'Beispielzeichenkette mit Semikolon als Trennzeichen
MeineZeichenkette = WB.Range("Aufmaß_srvpos")

'Die Funktion Split verwenden, um die Bestandteile der Zeichenkette aufzuteilen
MeinArray = Split(MeineZeichenkette, ";")

'Das Arbeitsblatt leeren
'ActiveSheet.UsedRange.Clear

'Durch das Array iterieren
For N = LBound(MeinArray) + 0 To UBound(MeinArray)
  'Jede E-Mail-Adresse in die erste Spalte des Arbeitsblatts einfügen
  WBlerf.Range("D" & N + 1).Value = MeinArray(N)
Next N

Lieben Dank und VG

Stefan

...zur Frage

mehrere Zahlen ausrechnen Windows Forms Taschenrechner?

Hallo,

Ich habe folgendes "Problem", habe meinen TR soweit hinbekommen, dass er Zahl 1 (+-*/) Zahl 2 ausrechnen kann. Nun soll ich Zahl 1 (+-*/) Zahl 2 (+-*/)Zahl 3,... ausrechnen können, stehe dabei leider irgendwie vor einer Wand und bekomme es nicht hin.

Hier der code: (etwas abgekürzt, da sonst zu lang)

Kopf=

Imports System.CodeDom
Public Class form1
  Public Property zahl As String = ""
  Public Property calc As String = ""

Bei alle Zahlen (0-9 sowie .)=

 Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
    tb.Text += "1"
  End Sub

Delete Button=

 Private Sub bdel_Click(sender As Object, e As EventArgs) Handles bdel.Click
    If (tb.Text.Length > 0) Then
      tb.Text = tb.Text.Substring(0, tb.Text.Length - 1)
    End If
  End Sub
  End Sub

Gleich Button=

 Private Sub bsolve_Click(sender As Object, e As EventArgs) Handles bsolve.Click
    If (calc = "+") Then
      tb.Text = Val(zahl) + Val(tb.Text)
    End If
    If (calc = "-") Then
      tb.Text = Val(zahl) - Val(tb.Text)
    End If
    If (calc = "*") Then
      tb.Text = Val(zahl) * Val(tb.Text)
    End If
    If (calc = "/") Then
      tb.Text = Val(zahl) / Val(tb.Text)
    End If
  End Sub

bei allen Operatoren= (+,-,*,/)

Private Sub bplus_Click(sender As Object, e As EventArgs) Handles bplus.Click
    zahl = tb.Text
    calc = "+"
    tb.Text = ""
  End Sub

Vielen Dank schonmal

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen