Go to English page

Neuigkeiten

Downloadbeschreibung:

Das nightly build von GWhoIs von ViaThinkSoft !
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Systemkonfiguration:
- Notebook: Dell Precision M4600
- Festplatte: Samsung SSD 750 EVO 250G
- Windows 7 Professional (Problem ist möglicherweise unabhängig vom Betriebssystem)
- Vollverschlüsselung mit TrueCrypt (Problem ist möglicherweise unabhängig von der Verschlüsselung)

Problem:
- Windows bleibt beim Starten im pulsierenden Windows Start-Logo stehen.

Lösung:
- Beim Starten in die Boot-Auswahlliste gehen, dort den Diagnose-Modus aktivieren. Es startet ePSA (Pre-boot Self Assessment) und es wird automatisch eine Schnell-Diagnose durchgeführt.
- Nun die Festplatte auswählen und "Thorough Test" aktivieren
- Die Festplatte wird nun einem genauen Test unterzogen
- Nach Abschluss des Tests, der ohne Fehler abgeschlossen wird, sollte Windows wieder normal starten.

Das Problem ist bisher 2 Mal aufgetreten und wurde wie oben beschrieben gelöst.
Es ist derzeit ungewiss, ob es ein Fehler im Festplatten-Controller oder der Festplatte selbst ist. Der DST (Disk Self Test) scheint das Gerät aus einem Fehlerzustand herauszuholen.
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
procedure TForm14.IdHTTPServer1Command(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  ctx: TMyContext;
begin
  ctx.Context := AContext;
  ctx.RequestInfo := ARequestInfo;
  ctx.ResponseInfo := AResponseInfo;
  ctx.Server := IdHTTPServer1;

  ...
end;


{ TMyContext }

type
  TMyContext = record
    Context: TIdContext;
    RequestInfo: TIdHTTPRequestInfo;
    ResponseInfo: TIdHTTPResponseInfo;
    Server: TIdHTTPServer;
    function GetSesVal(name: string): string;
    function SetSesVal(name, val: string): string;
    procedure SesLogout;
  end;

function TMyContext.GetSesVal(name: string): string;
begin
  if assigned(RequestInfo.Session) or
     (Server.CreateSession(Context, ResponseInfo, RequestInfo) <> nil) then
  begin
    RequestInfo.Session.Lock;
    try
      result := RequestInfo.Session.Content.Values[name];
    finally
      RequestInfo.Session.Unlock;
    end;
  end;
end;

procedure TMyContext.SesLogout;
begin
  if Assigned(RequestInfo.Session) then
  begin
    Server.EndSession(RequestInfo.Session.SessionID);
  end;
end;

function TMyContext.SetSesVal(name, val: string): string;
begin
  if assigned(RequestInfo.Session) or
     (Server.CreateSession(Context, ResponseInfo, RequestInfo) <> nil) then
  begin
    RequestInfo.Session.Lock;
    try
      RequestInfo.Session.Content.Values[name] := val;
    finally
      RequestInfo.Session.Unlock;
    end;
  end;
end;

Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
The following record will cause memory corruptions (can be detected with FastMM4) because the reference counting of the string inside the record is not correctly handled anymore.

type
  TBuggy = record
    MyString: string;
  end;


Following change will fix the issue:

type
  TWorking = record
    Dummy: Cardinal;
    MyString: string;
  end;


Any additional member to the record will fix the issue.

Tested with Delphi 2007 Professional.
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Folgender Hack sorgt für Abhilfe:

uses
  FastMM4, IdStack;

procedure IndyRegisterExpectedMemoryLeak; // for Indy 10
type
  PObject = ^TObject;
var
  bak: byte;
  m: pointer;
begin
  if DebugHook = 0 then exit;
  bak := DebugHook;
  DebugHook := 0; // AccessViolation nicht zeigen
  try
    // Wir müssen das Symbol GStackCriticalSection in IdStack.pas finden.
    // Leider ist es im implementation-Abschnitt versteckt.
    // Deshalb suchen wir die Adresse mit diesem ekelhaften Hack.

    (*
    TIdStack.DecUsage:
    00634BEC 55               push ebp
    00634BED 8BEC             mov ebp,esp
    00634BEF 51               push ecx
    00634BF0 8945FC           mov [ebp-$04],eax
    IdStack.pas.641: class procedure TIdStack.DecUsage;
    00634BF3 833D7C7B980000   cmp dword ptr [$00987b7c],$00  <---  $00987b7c = GStackCriticalSection  (DecUsage+$9)
    00634BFA 7514             jnz $00634c10
    00634BFC B981020000       mov ecx,$00000281
    00634C01 BA784C6300       mov edx,$00634c78
    00634C06 B8B04C6300       mov eax,$00634cb0
    00634C0B E8940DDDFF       call @Assert
    IdStack.pas.643: Assert(GStackCriticalSection<>nil);
    00634C10 A17C7B9800       mov eax,[$00987b7c]  <---  $00987b7c = GStackCriticalSection (DecUsage+$25)
    00634C15 8B10             mov edx,[eax]
    00634C17 FF12             call dword ptr [edx]
    00634C19 33C0             xor eax,eax
    00634C1B 55               push ebp
    00634C1C 68654C6300       push $00634c65
    00634C21 64FF30           push dword ptr fs:[eax]
    00634C24 648920           mov fs:[eax],esp
    *)

    m := @TidStack.DecUsage;
    m := Pointer(integer(m)+9);
    repeat
      try
        if PObject(PPointer(m)^)^.ClassName = 'TIdCriticalSection' then
        begin
          FastMM4.RegisterExpectedMemoryLeak(PPointer(PPointer(m)^)^);
          break;
        end;
      except
      end;
      m := Pointer(integer(m)+1);
    until false;
  finally
    DebugHook := bak;
  end;
end;
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Downloadbeschreibung:

StackManager für Linux, insbesondere über SSH Verbindungen.

Verwendet MySQL als Datenbank.

Eine automatisierte Migration auf StackMan for Windows 5.1 ist geplant.
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Projektbeschreibung:

ViaThinkSoft Currency Converter is a framework developed by Daniel Marschall which converts currencies. The latest exchange data is automatically downloaded and cached.

To use ViaThinkSoft Currency Converter, you need an API key from CurrencyLayer.com. Keys with limited access are available for free, and there are paid subscriptions available too.

Learn more about the Currency Converter!
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Downloadbeschreibung:

Download the source code for Delphi here
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Der ViaThinkSoft Currency Converter ist online!
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Projektbeschreibung:

ViaThinkSoft Currency Converter is a framework developed by Daniel Marschall which converts currencies. The latest exchange data is automatically downloaded and cached.

To use ViaThinkSoft Currency Converter, you need an API key from CurrencyLayer.com. Keys with limited access are available for free, and there are paid subscriptions available too.

Learn more about the Currency Converter!
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Downloadbeschreibung:

Ein Gästebuch für PHP und MySQL von ViaThinkSoft.

Unterstützt werden unter Anderem:
- Freischaltung via e-Mail
- Absicherung mittels ReCaptcha
- Smileys
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
ViaThinkSoft ist im August 2017 auf einen neuen, schnelleren und größeren Server umgezogen.

Die neuen IP-Adressen sind 37.48.104.196 und 2001:1af8:4700:a07e:1::1337 .
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Downloadbeschreibung:

Ein CLI YouTube Downloader in PHP geschrieben
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management


(1) VMware Workstation 12 Player installieren
https://www.vmware.com/de/products/player/playerpro-evaluation.html

(2) XP Mode von Microsoft herunterladen:
https://www.microsoft.com/de-de/download/details.aspx?id=8002

(3) WindowsXPMode_de-de.exe mit WinRAR entpacken.

(4) Datei sources\xpm umbenennen in xpm.cab , und diese Datei dann entpacken.

(5) xpm\VirtualXPVHD umbenennen in VirtualXPVHD.vhd

(6) Neue VMware VM erstellen. Betriebssystem: "Windows XP Professional"
Bestehende Festplatte auswählen: Die VHD-Datei auswählen, auch wenn VMware nur vmdk Dateien akzeptiert

(7) VM Starten und Bildschirmanweisungen folgen

(8) VMware Tools installieren und VM neu starten.

(9) Wenn Maus nicht funktioniert:
- regedit.exe öffnen
- Öffnen: KEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96F-E325-11CE-BFC1-08002BE10318}
- Beim Wert "UpperFilters" die Zeile "msvmmouf" löschen, sowie überflüssige Zeilenumbrüche
- VM neu starten

(10) vmx-Datei öffnen, und folgendes hinzufügen:
xpmode.enabled = "TRUE"
Nach dem nächsten Start der VM wird Windows XP dann freigeschaltet sein.
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Downloadbeschreibung:

An API written in PHP for the OID repository oid-info.com

Get more information about this API
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Projektbeschreibung:

Features:
- Keine Registrierung notwendig! Geben Sie einfach einen beliebigen Namen im Feld "id" ein. Wenn dieser frei ist, wird automatisch ein neuer Webcounter für Sie eingerichtet.
- Reload-Sperre für 60 Minuten (Neu laden bzw. F5-Taste wird den Besucherzähler nicht erhöhen)
- Unterstützt SSL, sodass es zu keinen Warnungen kommen wird, wenn Sie den Counter auf einer HTTPS-Webseite einbinden
- Mehrere Designs können parallel verwendet werden (z.B. für verschiedene Unterseiten)
- Vertraulich und sicher: Keine erzwungenen Rückverlinkungen, keine Cookies, kein JavaScript!

Jetzt kostenlosen Besucherzähler nutzen!
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
procedure StopMusic;
begin
  SendMessage(HWND_BROADCAST, WM_APPCOMMAND, 0, MAKELONG(0, APPCOMMAND_MEDIA_STOP));
end;


This also works in applications which swallow the VK_MEDIA_STOP key (like OwnCloud).
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Projektbeschreibung:

UserDetect2 is a program that allows the user to execute different programs depending on their current environment (e.g. MAC addresses, user name or computer name), so that a single executable file, e.g. shared over a network drive, a flash drive or external hard disk, can perform tasks for different work stations. The environment identifications can be extended by plugins.
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
- Goto the "Component" Menu with Delphi and select "Import Component"
- Select "Import ActiveX Control" from the resulting Dialog
- Use the search filter to find the "Microsoft Internet Controls" and press next
- Choose palette "Internet"
- Create a new package, and install this package
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management
Beispiel: Verhindern, dass "Connected = True" in *.dfm Dateien vorkommt.

Es muss folgende Datei angelegt werden: C:\Repositories\...\Hooks\pre-commit.bat

@echo off

SET PATH=%PATH%;C:\Program Files\VisualSVN Server\bin\

setlocal enableextensions EnableDelayedExpansion

for /f "tokens=1,* usebackq" %%i in (`svnlook changed -t %2 %1`) do (
     for %%A in ("A", "U") do if "%%i"==%%A (
          set "changetype=%%i"
          set "filename=%%j"
          if /I "!filename:~-3!"=="dfm" (
               svnlook cat -t %2 %1 "!filename!" | findstr /C:"ConnectionString" > NUL
               if not errorlevel 1 (
                    echo -------------------------------------------- >&2
                    echo VORAB-PRÜFUNG FEHLGESCHLAGEN! >&2
                    echo Es wurde vergessen, ein ConnectionString-Attribut zu entfernen! >&2
                    echo !filename! >&2
                    echo -------------------------------------------- >&2
                    exit 1
               )

          )
     )
)
Daniel Marschall
ViaThinkSoft Mitbegründer, Security Management
ViaThinkSoft Co-Founder, Security Management