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.

Ähnliche Fragen

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

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

...zur Frage

In welchen ländern bekommt man legal magische Trüffel?

Holland weiß ich aber gibt's noch andere wenn ja wo bekommt man die dann?

...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

Once I was reincarnated as a slime stream?

Wo kann ich den Anime im Internet kostenlos und legal ( oder illegal falls nicht legal und kostenfrei möglich ist ) schauen?

...zur Frage

VBA Datum (dd.mm.yy) aus Zelle umdrehen (yymmdd) und als Name speichern?

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

Taube essen in deutschland legal?

Also nehmen wir mal an ich würde eine Taube von der Straße fangen und essen. Wäre das legal? Weil in anderen Ländern isst man ja Tauben, ist das in Deutschland überhaupt 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

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

Wie wurde es legal in manchen Ländern Gegenstände oder Tiere zu heiraten?

Ich brauche die Information für ein referat

...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

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

Avira ist installiert aber nicht zu finden?

Ich habe irgendwann Avira installiert und es ist jetzt der Standard beim Viren- & Bedrohungsschutz. Ich kann es nicht deaktivieren, also will es deinstallieren.

Das ist aber nirgendswo zu finden. Im Task Manager ist lediglich ein Hintergrundprogramm namens "Endpoint Protection Service". Das kann ich aber nicht schließen.

Wenn ich "Avira Setup" starte, kann ich wählen "Öffnen" und "Reparieren". Zweiteres funktioniert nicht, wenn ich draufklicke steht da fehlgeschlagen.

Bei "Öffnen" funktioniert es einfach nicht, nichts passiert, wie, wenn ich es auf "Windows Sicherheit" klicke.

WIE DEINSTALLIERE ICH DAS? Ich kann nicht mehr.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen