SRL Archive - News and General

Anyone have the old includes like Squiq and SSI? I just want to look at them…

And all of SCAR's basic Auto-oriented functions? You don't have to include the Delphi ones (like IntToStr, Split, ).

ScarScripts.com might still have them. When I first started SCAR I got them from there.

Attached: Scar 2.03 includes….

includes

ARi, antiford, BoxBreaker, BoxBreaker2, JokersInclude, library, library2, MGlibrary, MRI, OSi, par, PH, Placeholder, RedXIIsFordCracker, RSCI, rswalker, Si(scar), Si(txt), Squig, SSI2, sslibrary, USS, WAAMP, & SRL folder.

function rs_OnMinimap(x, y: Integer): Boolean;
function rs_FindMMColors(Color: Integer): TIntegerArray;
procedure rs_DeleteUID;
function rs_DeleteUIDEx(Folder: string): Boolean;
function rs_GetUpText: string;
function rs_GetUpTextAt(x, y, TextLength: Integer): string;
procedure GetMousePos(var x, y: Integer);
procedure MoveMouse(x, y: Integer);
procedure MoveMouseSmooth(x, y: Integer);
procedure MoveMouseSmoothEx(x, y: Integer; minsleeptime, maxsleeptime, maxdistance, gravity, forces: Integer);
procedure MoveMouseSmoothFrom(x1, y1, x2, y2: Integer);
procedure MoveMouseSmoothFromEx(x1, y1, x2, y2: Integer; minsleeptime, maxsleeptime, maxdistance, gravity, forces: Integer);
procedure ClickMouse(x, y: Integer; Left: Boolean);
procedure HoldMouse(x, y: Integer; Left: Boolean);
procedure ReleaseMouse(x, y: Integer; Left: Boolean);
procedure ClickMouseMid(x, y: Integer);
procedure HoldMouseMid(x, y: Integer);
procedure ReleaseMouseMid(x, y: Integer);
procedure MoveMouseSpline(x, y, rx, ry: Integer);
procedure MoveMouseSplineEx(x, y, rx, ry, mouseSpeed, ctrlSpacing, ctrlVariance: Integer);
procedure MoveMouseSplineFrom(sx, sy, ex, ey, rx, ry: Integer);
procedure MoveMouseSplineFromEx(sx, sy, ex, ey, rx, ry, mouseSpeed, ctrlSpacing, ctrlVariance: Integer);
procedure ClickMouseSpline(x, y, rx, ry: Integer; left: Boolean);
procedure MouseBox(x1, y1, x2, y2: Integer);
procedure ClickMouseBox(x1, y1, x2, y2: Integer; left: Boolean);
procedure MoveMouseCC(x, y, range, segments, pcount, delay: Integer);
function SendInterSCARMessage(id, message: string): Boolean;
function ReadInterSCARMessage(id: string): string;
procedure SendInterSCARInteger(id: String; Int: Integer);
function ReadInterSCARInteger(id: String): Integer;
procedure SendInterSCARBoolean(id: String; Bool: Boolean);
function ReadInterSCARBoolean(id: String): Boolean;
procedure SendInterSCARExtended(id: String; Numb: Extended);
function ReadInterSCARExtended(id: String): Extended;
function ReadInterSCARInt64(id: String): Int64;
procedure SendInterSCARInt64(id: String; Numb: Int64);
function WriteFileByte(FileNum: Integer; b: Byte): Boolean;
function WriteFileInt(FileNum: Integer; i: Integer): Boolean;
function WriteFileString(FileNum: Integer; s: string): Boolean;
function ReadFileByte(FileNum: Integer; var b: Byte): Boolean;
function ReadFileInt(FileNum: Integer; var i: Integer): Boolean;
function ReadFileString(FileNum: Integer; var s: string; Length: Integer): Boolean;
procedure CloseFile(FileNum: Integer);
function EndOfFile(FileNum: Integer): Boolean;
function FileSize(FileNum: Integer): LongInt;
function OpenFile(Path: string; Shared: Boolean): Integer;
function RewriteFile(Path: string; Shared: Boolean): Integer;
procedure WriteINI(Section, KeyName, NewString, FileName: string);
function ReadINI(Section, KeyName, FileName: string): string;
function DirectoryExists(Directory: string): Boolean;
function FileExists(FileName: string): Boolean;
function ExtractFileName(FileName: string): string;
function ExtractFilePath(FileName: string): string;
function ExtractFileExt(FileName: string): string;
function ExtractFileDrive(FileName: string): string;
function GetFiles(Path, Ext: string): TStringArray;
function SaveToFile(Sender: TObject; FileName: string): Boolean;
function LoadFromFile(Sender: TObject; FileName: string): Boolean;
function MD5FromFile(Filepath: string): string;
procedure DeleteINI(Section, KeyName, FileName: string);
function GetSystemTime: Integer;
function GetTickCount: Integer;
function GetTimeRunning: Integer;
procedure ConvertTime(Ms: Integer; var H, M, S: Integer);
function Left(Text: string; Count: Integer): string;
function Right(Text: string; Count: Integer): string;
function Replace(Text, FindStr, ReplaceStr: string): string;
function GetNumbers(Text: string): string;
function GetLetters(Text: string): string;
function GetOthers(Text: string): string;
function TrimNumbers(Text: string): string;
function TrimLetters(Text: string): string;
function TrimOthers(Text: string): string;
function Capitalize(S: string): string;
function InStrArr(Str: string; Arr: TStringArray; CaseSensitive: Boolean): Boolean;
function PosEx(search, s: string; from: Integer): Integer;
function LastPosEx(search, s: string; from: Integer): Integer;
function LastPos(search, s: string): Integer;
function StartsWith(prefix, s: string): Boolean;
function EndsWith(suffix, s: string): Boolean;
function TrimEx(delimiter, s: string): string;
function RegexPos(Txt, Regex: string): Integer;
function FindRegex(Txt, Regex: string): string;
function ReplaceRegex(Txt, Regex, ReplaceStr: string): string;
function MD5(s: string): string;
function Pow(Base, Exponent: Extended): Extended;
function IntPow(Base: Extended; Exponent: Integer): Extended;
function Max(a, b: Integer): Integer;
function MaxE(a, b: Extended): Extended;
function Min(a, b: Integer): Integer;
function MinE(a, b: Extended): Extended;
function SameValue(A, B: Extended): Boolean;
function Degrees(Radians: Extended): Extended;
function Radians(Degrees: Extended): Extended;
function ArcCos(X: Extended): Extended;
function ArcTan2(Y, X: Extended): Extended;
function Tan(X: Extended): Extended;
function ArcTan(X: Extended): Extended;
function ArcSin(X: Extended): Extended;
function Cotan(X: Extended): Extended;
function Secant(X: Extended): Extended;
function Cosecant(X: Extended): Extended;
function Hypot(X, Y: Extended): Extended;
function Cot(X: Extended): Extended;
function Sec(X: Extended): Extended;
function Csc(X: Extended): Extended;
function Cosh(X: Extended): Extended;
function Sinh(X: Extended): Extended;
function Tanh(X: Extended): Extended;
function CotH(X: Extended): Extended;
function SecH(X: Extended): Extended;
function CscH(X: Extended): Extended;
function ArcCot(X: Extended): Extended;
function ArcSec(X: Extended): Extended;
function ArcCsc(X: Extended): Extended;
function ArcCosh(X: Extended): Extended;
function ArcSinh(X: Extended): Extended;
function ArcTanh(X: Extended): Extended;
function ArcCotH(X: Extended): Extended;
function ArcSecH(X: Extended): Extended;
function ArcCscH(X: Extended): Extended;
function LnXP1(X: Extended): Extended;
function Log10(X: Extended): Extended;
function Log2(X: Extended): Extended;
function LogN(Base, X: Extended): Extended;
function Fract(number: Int64): Int64;
function BinCoe(a, b: LongInt): Extended;
function InRange(Value, Min, Max: Integer): Boolean;
function Distance(x1, y1, x2, y2: Integer): Integer;
function Sqr(X: Extended): Extended;
function Exp(Number: Extended): Extended;
function Rand: Extended;
function Inversus(E: Extended): Extended;
function Ceil(X: Extended): Integer;
function Floor(X: Extended): Integer;
function DecRet(E: Extended): Extended;
function InCircle(x, y, mx, my, r: Integer): Boolean;
function Hypot(X, Y: Extended): Extended;
function InTriangle(x, y, x1, y1, x2, y2, x3, y3: Integer): Boolean;
function FixD(Degrees: Extended): Extended;
function AdjustD(Angle, Adjustment: Extended): Extended;
function FixR(Radians: Extended): Extended;
function AdjustR(Angle, Adjustment: Extended): Extended;
function AMin(Data: TIntegerArray): Integer;
function AMinE(Data: TExtendedArray): Extended;
function AMax(Data: TIntegerArray): Integer;
function AMaxE(Data: TExtendedArray): Extended;
function iAbs(Number: Integer): Integer;
function ToCart(Point: PPoint): TPoint;
function ToCartOffset(Point: PPoint; offset: TPoint): TPoint;
function ToPolar(Point: TPoint): PPoint;
function ToPolarOffset(Point, offset: TPoint): PPoint;
procedure BubbleSort(var Values: TIntegerArray);
procedure BubbleSortB(var Values: TIntegerArray);
procedure QuickSort(var Values: TIntegerArray);
function GetPage(URL: string): string;
procedure OpenWebPage(URL: string);
function InitializeHTTPClient(HandleCookies, HandleRedirects: Boolean): Integer;
procedure FreeHTTPClient(i: Integer);
function GetHTTPPage(Client: Integer; URL: string): string;
procedure SetHTTPUserAgent(Client: Integer; Agent: string);
function PostHTTPPage(Client: Integer; Url: string; PostData: string): string;
function Between(s1, s2, s: string): string;
function PostHTTPPageEx(Client: Integer; Url: string): string;
procedure ClearPostData(Client: Integer);
procedure AddPostVariable(Client: Integer; VarName, VarValue: string);
function GetRawHeaders(Client: Integer): string;
function OpenConnection(Host: string; Port, TimeOut: Integer): Integer;
function ReadConnectionData(Connection: Integer; var s: string): Boolean;
function SendConnectionData(Connection: Integer; s: string): Boolean;
procedure FreeConnection(i: Integer);
function IsConnectionOpen(Connection: Integer): Boolean;
procedure Writeln(s: string);
procedure ClearDebug;
procedure DeleteDebugLine(Line: Integer);
function GetDebugLineCount: Integer;
function GetDebugText: String;
function GetDebugLine(Line: Integer): string;
procedure ClearDebugLine(Line: Integer);
procedure ReplaceDebugLine(Line: Integer; s: string);
procedure Status(s: string);
function GetStatus: string;
function Readln(question: string): string;
function GetTextAtEx(x, y: Integer; Tolerance: Integer; Chars: Integer; CheckShadow, CheckOutline: Boolean; MinSpacing, MaxSpacing: Integer; TextColor: Integer; TextLength: Integer; Strict: Boolean; Range: TCharRange): string;
function IsTextAtEx(x, y: Integer; S: String; Tolerance: Integer; Chars: Integer; CheckShadow, CheckOutline: Boolean; MinSpacing, MaxSpacing: Integer; TextColor: Integer): Boolean;
function IsTextInAreaEx(x1, y1, x2, y2: Integer; var x, y: Integer; S: String; Tolerance: Integer; Chars: Integer; CheckShadow, CheckOutline: Boolean; MinSpacing, MaxSpacing: Integer; TextColor: Integer): Boolean;
procedure PlaySound(s: string);
procedure SaveScreenshot(s: string);
function AppPath: string;
function ScriptPath: string;
function Random(Range: Integer): Integer;
function RandomRange(aFrom, aTo: Integer): Integer;
function RBool: Boolean;
function RBoolEx(Chance: Integer): Boolean;
function GetColor(x, y: Integer): Integer;
function FindColor(var x, y: Integer; color, xs, ys, xe, ye: Integer): Boolean;
function FindColorSpiral(var x, y: Integer; color, xs, ys, xe, ye: Integer): Boolean;
function FindColorSpiral2(var x, y: Integer; color, xs, ys, xe, ye: Integer): Boolean;
function FindColorTolerance(var x, y: Integer; color, xs, ys, xe, ye: Integer; Tolerance: Integer): Boolean;
function FindColorSpiralTolerance(var x, y: Integer; color, xs, ys, xe, ye: Integer; Tolerance: Integer): Boolean;
function FindColoredAreaTolerance(var x, y: Integer; color, xs, ys, xe, ye: Integer; MinArea, Tolerance: Integer): Boolean;
function FindColorsTolerance(var Points: TPointArray; Color, xs, ys, xe, ye, Tolerance: Integer): Boolean;
procedure ColorToleranceSpeed(x: integer);
function SimilarColors(col1, col2, tolerance: integer): Boolean;
procedure FindColorsSpiralTolerance(x, y: Integer; var Points: TPointArray; color, xs, ys, xe, ye: Integer; Tolerance: Integer);
function FastGetPixel(bitmap: Integer; x, y: Integer): TColor;
procedure FastSetPixel(bitmap: Integer; x, y: Integer; c : TColor);
procedure SetColorspeed2Modifiers(huemodifier, saturationmodifier: Extended);
procedure SetColorspeed3Modifiers(Sensitivity: Integer);
procedure PickColor(var Color: TColor; var X, Y: Integer);
function FindColorSkipBox(var x, y: Integer; color, x1, y1, x2, y2: Integer; SkipBox: TBox): Boolean;
function FindColorSkipBoxTolerance(var x, y: Integer; color, x1, y1, x2, y2, Tolerance: Integer; SkipBox: TBox): Boolean;
function FindColorSkipBoxArray(var x, y: Integer; color, x1, y1, x2, y2: Integer; SkipBoxes: TBoxArray): Boolean;
function FindColorSkipBoxArrayTolerance(var x, y: Integer; color, x1, y1, x2, y2, Tolerance: Integer; SkipBoxes: TBoxArray): Boolean;
function CountColor(Color, x1, y1, x2, y2: Integer): Integer;
function CountColorTolerance(Color, x1, y1, x2, y2, Tolerance: Integer): Integer;
function FindColorSkipCoords(var x, y: Integer; color, x1, y1, x2, y2: Integer; const SkipCoords: TPointArray): Boolean;
function FindColorSkipCoordsTolerance(var x, y: Integer; color, x1, y1, x2, y2, Tolerance: Integer; const SkipCoords: TPointArray): Boolean;
function FindColorCircle(var x, y: Integer; color, mx, my, r: Integer): Boolean;
function FindColorCircleTolerance(var x, y: Integer; color, mx, my, r, Tolerance: Integer): Boolean;
function GetColors(Coords: TPointArray): TIntegerArray;
function FindColorTriangle(var x, y: Integer; color, x1, y1, x2, y2, x3, y3: Integer): Boolean;
function FindColorTriangleTolerance(var x, y: Integer; color, x1, y1, x2, y2, x3, y3, Tolerance: Integer): Boolean;
function GetBitmapAreaColors(xs, ys, xe, ye: Integer): T2DIntArray;
function GetColorToleranceSpeed: Integer;
function FindColorComp(var x, y: Integer; Comp: Variant; CompType: TColorComp; xs, ys, xe, ye: Integer; Tolerance: Extended): Boolean;
procedure ColortoHSL(C: TColor; var H, S, L: Extended);
function HSLtoColor(H, S, L: Extended): TColor;
procedure RGBtoHSL(R, G, B: Integer; var H, S, L: Extended);
procedure HSLtoRGB(H, S, L: Extended; var R, G, B: Integer);
function RGBtoColor(R, G, B: Integer): TColor;
procedure ColortoRGB(Color: TColor; var R, G, B: Integer);
procedure RGBtoXYZ(R, G, B: Integer; var X, Y, Z: Extended);
procedure XYZtoRGB(X, Y, Z: Extended; var R, G, B: Integer);
procedure ColortoXYZ(Color: TColor; var X, Y, Z: Extended);
function XYZtoColor(X, Y, Z: Extended): TColor;
procedure HSLtoXYZ(H, S, L: Extended; var X, Y, Z: Extended);
procedure XYZtoHSL(X, Y, Z: Extended; var H, S, L: Extended);
procedure Wait(ms: Integer);
procedure Sleep(ms: Integer);
function SetTimeout(secs: Cardinal; procname: string): Integer;
procedure ClearTimeouts;
procedure ClearTimeout(s: string);
procedure SendKeys(S: string);
procedure SendKeysVB(S: string; Wait: Boolean);
procedure KeyDown(Key: Byte);
procedure KeyUp(Key: Byte);
procedure KeyDownSilent(Key: Byte);
procedure KeyUpSilent(Key: Byte);
function GetKeyCode(Key: Char): Byte;
procedure SendKeysSilent(S: string);
procedure SendArrowSilent(a: Byte);
procedure SendArrowSilentWait(a: Byte; WaitTime: Integer);
function IsMouseButtonDown(LeftButton: Boolean): Boolean;
function IsFunctionKeyDown(Key: Byte): Boolean;
function IsFKeyDown(Num: Byte): Boolean;
function IsArrowDown(Num: Byte): Boolean;
function IsKeyDown(C: Char): Boolean;
procedure SendKeysWait(Text: String; tWait, tRandom: Integer);
procedure SendArrow(Key: Byte);
procedure SendArrowWait(Key: Byte; WaitTime: Integer);
function IsNumpadKeyDown(Key: Byte): Boolean;
function FindWindow(Title: string): Boolean;
function FindWindowTitlePart(Title: string; CaseSensitive: Boolean): Boolean;
function FindWindowBySize(Width, Height: Integer): Boolean;
procedure ActivateClient;
function GetClientWindowHandle: Integer;
procedure SetClientWindowHandle(H: Integer);
function LoadBitmap(path: string): Integer;
function CreateBitmapMaskFromText(Text: string; Chars: Integer): Integer;
function CreateBitmapFromText(Text: string; Chars: Integer; TextColor: Integer): Integer;
procedure LoadDebugBitmap(path: string);
function BitmapFromString(Width, Height: Integer; str: string): Integer;
procedure SaveBitmap(bitmap: Integer; path: string);
procedure FreeBitmap(bitmap: Integer);
function GetBitmapCanvas(bitmap: Integer): TCanvas;
function FindBitmap(bitmap: Integer; var x, y: Integer): Boolean;
function FindBitmapIn(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer): Boolean;
function FindBitmapToleranceIn(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; tolerance: Integer): Boolean;
function FindDeformedBitmapToleranceIn(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; tolerance: Integer; Range: Integer; AllowPartialAccuracy: Boolean; var accuracy: Extended): Boolean;
function FindDeformedBitmapToleranceRotationIn(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; tolerance: Integer; Range: Integer; var accuracy: Extended; AngleIntervals: Extended; StartAngle, MaxAngle: Extended; var angle: Extended): Boolean;
function RotateBitmap(bitmap: Integer; angle: Extended): Integer;
function FindBitmapSpiral(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer): Boolean;
function FindBitmapSpiralTolerance(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; Tolerance: Integer): Boolean;
function FindBitmapMaskTolerance(mask: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; Tolerance, ContourTolerance: Integer): Boolean;
procedure CopyCanvas(Source, Dest: TCanvas; sxs, sys, sxe, sye, dxs, dys, dxe, dye: Integer);
procedure SafeCopyCanvas(Source, Dest: TCanvas; sx1, sy1, sx2, sy2, dx1, dy1, dx2, dy2: Integer);
function CreateMirroredBitmap(bitmap: Integer): Integer;
function FindBitmapRotated(bitmap: Integer; var x, y, Angle: Integer; x1, y1, x2, y2: Integer): Boolean;
procedure GetBitmapSize(Bitmap: Integer; var Width, Height: Integer);
function BitmapFromString2(Validate: Boolean; str: string): Integer;
function GetBitmapDc(Bmp: Integer): HDC;
function BitmapFromMem(Dc: HDC): Integer;
procedure FastReplaceColor(bmp: Integer; OldColor, NewColor: Integer);
procedure FastReplaceColorTolerance(bmp: Integer; OldColor, NewColor, Tolerance: Integer);
function BitmapToString(Bmp: Integer): string;
function GetClientCanvas: TCanvas;
function GetDebugCanvas: TCanvas;
function GetSelf: TScar;
function GetApplication: TScarApp;
procedure SaveSetting(section, setting, value: string);
function LoadSetting(section, setting : string) : string;
procedure ClearReport;
procedure AddToReport(s: string);
procedure DisplayDebugImgWindow(Width, Height: Integer);
procedure HideDebugImgWindow;
function LoadChars2(path: string): Integer;
function LoadCharsFromFont2(fontname: string; fontsize: Integer; fontbold, fontitalic, fontunderline, fontstrike: Boolean): Integer;
procedure FreeChars2(i: Integer);
function LoadDTM(FileName: string): Integer;
function DTMFromString(s: string): Integer;
procedure FreeDTM(DTM: Integer);
function FindDTM(DTM: Integer; var x, y: Integer; x1, y1, x2, y2: Integer): Boolean;
function FindDTMRotated(DTM: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; StartAngle, EndAngle, AngleStep: Extended; var Angle: Extended): Boolean;
 function AddDTM(DTM: TDTM): Integer;
function CreateForm: TForm;
procedure FreeForm(Form: TForm);
function GetSCARVersion: Integer;
procedure TerminateScript;
function IsFontSmoothingEnabled: Boolean;
procedure SetFontSmoothing(Enable: Boolean);
function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant;
procedure SetTargetBitmap(bitmap: Integer);
procedure GetClientDimensions(var Width, Height: Integer);
procedure CopyClientToBitmap(bitmap: Integer; xs, ys, xe, ye: Integer);
procedure ChangeReportWidth(Width: Integer);
procedure SetBitmapFastDrawTarget(bitmap: Integer);
procedure SetTransparentColor(bitmap, color: Integer);
procedure SetTransparencyFromBitmap(Bitmap, AlphaMaskBitmap: Integer);
procedure Disguise(Caption: string);
procedure MoveToTray;
procedure SetClientPos(OnTop: Boolean);
function GetSoundDuration(FileName: string): Integer;
procedure MakeWindowTransparent(Window, Transparancy: Integer);
function PointInBox(Point: TPoint; Box: TBox): Boolean;
function IntInBox(x, y: Integer; Box: TBox): Boolean;
procedure SetTargetDc(Dc: HDC);
procedure ResetDc;
procedure SetOnTop(Window: Integer; Top: Boolean);
function RearrangeTPA(thearray: TPointArray; startpt, endpt: Integer; dox, up: Boolean): TPointArray;
procedure SetDesktopAsClient;
procedure FastDrawTransparent(x, y: Integer; SourceBitmap, TargetBitmap: Integer);
procedure FastDrawSizeTransparent(x1, y1, x2, y2: Integer; sourcebitmap, targetbitmap: Integer);
procedure FastDrawClear(bitmap: Integer; Color: TColor);
procedure SafeDrawBitmap(Source: Integer; Dest: TCanvas; x, y: Integer);
function IntToPoint(x, y: Integer): TPoint;
function Point(x, y: Integer): TPoint;
function BoolToStr(Bool: Boolean): String;
function StrToBool(Str: String): Boolean;
function PointToBox(p1, p2: TPoint): TBox;
function IntToBox(x1, y1, x2, y2: Integer): TBox;
function StrToFloatDef(s: string; def: Extended): Extended;
function StrToBoolDef(s: string; def: Boolean): Boolean;

There's all the functions SCAR has :p

use scar tags plz?

Here are the old includes. From Freddy1990.

http://freddy1990.com/oldincludes/

:D You made me look into my 2.03 folder.. Good memories :)

Widget, thanks for this. But, what is this:

function MD5(s: string): string;

begin
  WriteLn(MD5('lol'));
end.

Someone tell?

theres a method of hashing strings called md5
maybe thats what that function does

Thats what it does…

(use passwords like in a MySQL database; those are hashed. You do not know what the pass is because you can't unhash it)

program New;

const
  AuthUser = 'R0b0t1';
  AuthPass = 'MD5';
  
begin
  if MD5(AuthUser) = 'd5f2b70b19ef36a3cae50de46af91418' then
    if MD5(AuthPass) = '7f138a09169b250e9dcb378140907378' then
    begin
      WriteLn('This eleminates the need for website authing');
      WriteLn('like SB100 has. This is basically what is done');
      WriteLn('on the website, a password is hashed and compared');
      WriteLn('to one in his database.');
    end;
end.