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