Differences

This shows you the differences between two versions of the page.

--- dodatkowe_funkcje [2018/06/17 12:14] – [Klasy] admin
+++ wlasne_moduly [2019/02/08 21:20] – admin
@@ Line 11: / Line 11: @@
   uPSC_std
   uPSC_classes
-  uPSR_controls
+  uPSC_controls
-  uPSR_forms
+  uPSC_forms
   uPSC_dateutils
   uPSC_dll
@@ Line 19: / Line 19: @@
-==== Typy ====
+==== Typy modułów ====
-<code delphi>type TModuleType = mtFile, mtRegistry</code>
+<code delphi>type TModuleType = mtFile, mtRegistry, mtOther</code>
@@ Line 78: / Line 78: @@
 ==== Funkcje ====
-<code delphi>procedure ShowMessage(aMsg: string);</code>
-<code delphi>procedure RegistryScan(RootType: DWord; RootKey: string);</code>
 <code delphi>function CryptoHash(const AStr, AHash: string): string;
@@ Line 112: / Line 109: @@
   RS, SDBM, SHIFTANDXOR, SUPERFAST, FNV1A64, FNV64, VXWORKS5
   MOTOROLADOCSIS
+  // windows //
+  LM
 </code>
@@ Line 138: / Line 137: @@
 function IsValidNum(const s: string): boolean;</code>
-<code delphi>procedure AddItem(App, Item, User, Pass, FileName: string);</code>
+<code delphi>procedure RegistryScan(RootType: DWord; RootKey: string);
+procedure AddItem(App, Item, User, Pass, FileName: string);</code>
+<code delphi>procedure ShowMessage(aMsg: string);
+function ExtractFilePath(const FileName: string): string;
+function ExtractFileDrive(const FileName: string): string;
+function ExtractFileName(const FileName: string): string;
+function ExtractFileExt(const FileName: string): string;
+function ExtractFileDir(Const FileName: string): string;
+function FileExists(const FileName: string): Boolean;
+function DirectoryExists(const DirName: string): Boolean;
+function ParamStr(l: LongInt):string;
+function ParamCount: LongInt;
+</code>
 ==== Parametry przekazywane z aplikacji ====
-<code delphi>Registry = TRegistryEx</code>
+<code delphi>var
-<code delphi>FileRecord = TFileRecordObj</code>
+  Registry = TRegistryEx
+  FileRecord = TFileRecordObj</code>
 ===== Przykład =====
@@ Line 173: / Line 189: @@
   ini := CreateIniFile(FileRecord.Full);
   try
-    str := ini.ReadString('ultravnc', 'passwd', 'x');
+    str := ini.ReadString('ultravnc', 'passwd', '');
     if IsValidHex(str) and (Length(str) > 0) then
     begin
@@ Line 192: / Line 208: @@
 ==== Obsługa rejestru ====
-<code delphi>
+<code delphi>function ModuleType: TModuleType;
-function ModuleType: TModuleType;
 begin
   Result := mtRegistry;
@@ Line 206: / Line 221: @@
 begin
   RegistryScan(ROOT_KEY, '\SOFTWARE\TigerVNC\WinVNC4');
-  // execute OnCheck on each nodes
   RegistryScan(ROOT_KEY, '\SOFTWARE\RealVNC\WinVNC4');
   RegistryScan(ROOT_KEY, '\SOFTWARE\ORL\WinVNC3');
@@ Line 232: / Line 246: @@
     else
       s := ModuleName;
-    AddItem(s,
+    AddItem(s, 'Custom Module', '',
-            'Custom Module',  // protocol
+       Trim(CryptoDecrypt(Registry.ReadString(Value),
-            '',               // username
+         #23#82#107#6#35#78#88#7, '', cmECBx, '1DESVNC')),'');
-            Trim(CryptoDecrypt(Registry.ReadString(Value),  // encrypted
-                        #23#82#107#6#35#78#88#7,     // key
-                        '',                          // iv
-                        cmECBx,                      // mode
-                        '1DESVNC')),                 // algorithm look@selftest
-            '');               // filename
   end;
 end;