20060303a

1 files changed, 45 insertions, 0 deletions

diff --git a/appl/cmd/randpass.b b/appl/cmd/randpass.b
new file mode 100644
index 00000000..074b21ac
--- /dev/null
+++ b/appl/cmd/randpass.b
@@ -0,0 +1,45 @@
+implement Randpass;
+
+include "sys.m";
+	sys: Sys;
+	stderr: ref Sys->FD;
+
+include "draw.m";
+
+include "keyring.m";
+	kr : Keyring;
+	IPint: import kr;
+
+Randpass: module
+{
+	init: fn(nil: ref Draw->Context, nil: list of string);
+};
+
+init(nil: ref Draw->Context, args: list of string)
+{
+	sys = load Sys Sys->PATH;
+	kr = load Keyring Keyring->PATH;
+
+	if(args != nil)
+		args = tl args;
+	pwlen := 16;
+	if(args != nil){
+		if(!isnumeric(hd args) || (pwlen = int hd args) <= 8 || pwlen > 256){
+			sys->fprint(sys->fildes(2), "Usage: randpass [password-length(<256, default=16)]\n");
+			raise "fail:usage";
+		}
+	}
+
+	rbig := IPint.random(pwlen*8, pwlen*16);
+	rstr := rbig.iptob64();
+
+	sys->print("%s\n", rstr[0:pwlen]);
+}
+
+isnumeric(s: string): int
+{
+	for(i := 0; i < len s; i++)
+		if(!(s[i]>='0' && s[i]<='9'))
+			return 0;
+	return i > 0;
+}