37 lines
1.0 KiB
QBasic
37 lines
1.0 KiB
QBasic
cls
|
||
print "-=ðþ Olson Software Help Tools Cracker þð=-"
|
||
print
|
||
print "RUC.INI format:"
|
||
print chr$(34)+"helpfile"+chr$(34)+","+chr$(34)+"name"+chr$(34)+",countstart"
|
||
print
|
||
print "helpfile is needed for REGUTIL.EXE"
|
||
print "name is the desired name"
|
||
print "countstart is the starting number from which to try"
|
||
print
|
||
print "Reading infos ... ";
|
||
open "I",#1,"RUC.INI"
|
||
input #1,hf$,nam$,x
|
||
close #1
|
||
print "OK ("+hf$+";"+nam$+";"+right$(str$(x),len(str$(x))-1)+")"
|
||
print "Cracking sequence begins (ESC breaks):"
|
||
Again:
|
||
locate 12,1:print "þ";
|
||
x$=right$(str$(x),len(str$(x))-1)
|
||
print "þ";
|
||
open "A",#1,"regutil.out"
|
||
print "þ";
|
||
print #1,chr$(13)+"["+x$+"] ";
|
||
print "þ";
|
||
close #1
|
||
print "þ";
|
||
print"ð "+x$+" ð";
|
||
shel$="regutil.exe "+hf$+" "+chr$(34)+nam$+chr$(34)+" "+x$+" >>regutil.out"
|
||
print "þ";
|
||
shell shel$
|
||
print "þ";
|
||
x=x+1
|
||
print "þ OK";
|
||
if inkey$=chr$(27) then end
|
||
locate 12,1:print space$(79);
|
||
goto Again
|
||
|